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Kapitel Vorwort 
Abschnitt a = 


Vorwort 


Computer - wie der SCHNEIDER CPC 464 - sind nicht nur zum 
Spielen da. So faszinierend fertige Programme auch sein 
mögen - Fußballspiele, Weltraumkriege, Autorennen, Schach- 
partien, Kämpfe mit seltsamen Ungeheuern usw. - noch auf- 
regender ist es, selbst zu programmieren: Wer zum ersten 
Mal ein Problem so aufbereitet hat, daß das in den Rech- 
ner eingegebene Programm dieses Problem in Sekunden- 
schnelle und ohne Fehler tatsächlich löst, der kann sich 
freuen. Ein solcher Erfolg nämlich zeigt, daß der Com- 


puter sinnvolle Arbeit leisten kann, d.h. er kann uns von 


der Last mühsamer "Kopfarbeit" befreien - und das ist 


auch sein wesentlicher Verwendungszweck; dies macht die 
außerordentlich rasch zunehmende Bedeutung dieser Rech- 


ner aus. 


In diesem Buch soll deshalb gezeigt werden, wie man als 
Schüler den Rechner, speziell den SCHNEIDER CPC 464, 


dazu einsetzen kann, wesentliche Probleme aus dem 
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Bereich des schulischen Alltags zu lösen. 
Dies bedeutet also, daß mit diesem Buch vier Ziele 


gleichzeitig verfolgt werden: 


1. Typische Schulprobleme beispielsweise aus der 
Mathematik, aus der Physik und aus anderen Fächern 
sollen aufgegriffen und die Wege zu ihrer Lösung 


sollen diskutiert werden. 


Die Beschreibung der Problemlösungswege soll dem 
Leser zeigen, wie man ganz allgemein Probleme an- 
packen muß, damit ein Rechner sie dann für uns 
lösen kann. 


Der Leser wird erkennen, wie die Programmierspra- 
che BASIC verwendet werden kann, um diejenigen 
Computerprogramme zu schreiben, die wir zur Lösung 


der oben genannten Probleme benötigen. 


Auf diese Weise erhält zum guten Schluß der Leser 
eine Sammlung von Programmen, die er nutzbringend 


im Schulalltag verwenden kann. 


Es versteht sich, daß der Nutzen dieses Buchs für den Le- 
ser sich insbesondere dann erschließt, wenn er die vor- 


geführten Programme selbst am Rechner ausprobiertund wenn 


er auch Alternativprogramme oder Programmveränderungen 


erprobt. 
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Im Bereich des Programnierens und des Rechnereinsatzes 


gilt nämlich wie in vielen anderen Lebensbereichen auch: 


Übung macht den Meister 


Im einzelnen werden in den Kapiteln dieses Buchs die fol- 


genden Problembereiche angesprochen: 


Aufgaben aus der Mathematik 

Probleme aus der Chemie 

Physikalische Aufgabenstellungen 

Aufgaben aus dem Sprachunterricht 
Aufgaben aus dem Bereich Biologie/ökologie 
Probleme aus Erdkunde und Geschichte 
Wirtschaftsprobleme 

Sonstige Aufgabenstellungen 


1. 
2. 
3. 
4. 
5 
6 

7 

8. 


Diesen inhaltlichen Kapiteln werden einige Ausführungen 
zu den Grundlagen und Bedingungen des Rechnereinsatzes 
beigefügt, und wir werden auch die Grundelemente der Pro- 
grammiersprache BASIC besprechen. 

Der Leser, der schon über hinreichende BASIC-Kenntnisse 
verfügt, mag die entsprechenden Ausführungen getrost 
überblättern. 

Zu den Computerprogrammen, die in den folgenden Kapiteln 
entwickelt oder vorgestellt werden, ist folgende Anmer- 
kung erforderlich: 


Zum einen handelt es sich um Programme, die bestimmte Pro- 
bleme lösen sollen (Beispiel: Programm zur Ermittlung 


eines "größten, gemeinsamen Teilers"). 
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Diese Programme können mit unterschiedlichen Ausgangs- 
daten "gefüttert" werden und dienen dann immer dem glei- 
chen Zweck. Zum anderen aber gibt es auch reine Trai- 
ningsprogramme: Ein Programm zum Beispiel, das zum Er- 
lernen von Englisch-Vokabeln verwendet werden kann, löst 
keine Probleme, sondern es "trainiert" nur. 

Allerdings gilt auch bei diesen Programmen, daß sie all- 
gemeiner eingesetzt werden können, wenn sie mit unter- 


schiedlichem Ausgangsmaterial versorgt werden. 


Zu diesem Buch werden auch eine Programmkassette und eine 
Programm-Diskette vorbereitet, wo sich alle Programme, 
die hier besprochen werden, wiederfinden, so daß der Le- 
ser, der diese Programme benutzen will, sich von der Last 
des Eintippens befreien kann. Diese Programmsammlung ver- 
zichtet allerdings auf die kleinen Beispielprogramme im 
folgenden Kapitel, die nur dazu dienen, die Grundelemente 


der Programmiersprache BASIC zu illustrieren. 


Die folgende Anmerkung ist für die weiteren Ausführungen 


besonders wichtig: 


Wir haben in den Programmen, die Schulprobleme lösen sol- 
len, bewußt darauf verzichtet, mit fortgeschritteneren 
und anspruchsvolleren BASIC-Sprachelementen zu arbeiten. 
Vielmehr haben wir uns bemüht, bei der Erstellung der 
Programme nur einfachere und grundlegende Sprachelemente 
zu benutzen. Dies hat den Zweck, den Leser - auch wenn 


er noch Anfänger sein sollte - nicht durch programmier- 


technische Fragen zu überfordern, sondern ihm die Kon- 


zentration auf die sachlichen Probleme zu ermöglichen. 


Diese Einschränkung hat zur Folge, daß manche Programme 
etwas unbeholfen wirken mögen - aber sie funktionieren, 
und zwar mit einfachsten Mitteln; darauf kam es uns zu- 


nächst an. 
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Bei komplizierteren Problemen in den späteren Ka- 


piteln wird dann allerdings auch der Einsatz 


weiterer Sprachelemente erforderlich, die dann erst 


von Fall zu Fall besprochen werden. 


Weiterhin möge der Leser insbesondere beachten, daß 
manche der vorgestellten Programme nur exemplari- 


schen Charakter haben: 


Wenn z.B. in einem Vokabel-Abfrageprogramm nur 19 
Vokabeln zur Verfügung stehen, so muß der Benutzer, 
wenn er dieses Programm konkret nutzen will, zunächst 
die Vokabelliste verlängern. An der grundsätzlichen 
Struktur des Programms - und auf die kommt es ja an - 


ändert sich dadurch natürlich nichts. 
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Kapitel 1: Grundelemente der Programmiersprache BASIC 


1 1 Vorbemerkung 
[2 


In diesem Kapitel werden neben einigen allgemeinen Grund- 
begriffen aus der Datenverarbeitung, die später wieder 
auftauchen, die wichtigsten Grundelemente der Programmier- 
sprache BASIC dargestellt und kurz erläutert. 

Derjenige Leser, der schon hinreichend mit BASIC vertraut 


ist, kann dieses Kapitel überblättern. 


Leser aber, die noch gar keine Programmiererfahrung haben, 
werden die Ausführungen in diesem Kapitel für etwas zu 
kurzgefaßt ansehen. Man kann sich aber mit dem Hinweis trö- 
sten, daß in den späteren Kapiteln bei der praktischen 
Verwendung dieser BASIC-Sprachbestandteile deren Verwen- 
dung, Funktionsweise und Wirkung dann auf jeden Fall deut- 
lich werden wird. 

So gesehen, enthält dieses Kapitel eher nur einen vor- 


läufigen Überblick. 
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12 Grundbegriffe, die man kennen sollte 


Das Wort "Computer" bedeutet wörtlich übersetzt "Rech- 
ner". Ein moderner Computer kann aber mehr als nur rech- 
nen. Er kann beispielsweise auch mit Buchstaben, Worten 
und Texten umgehen, er kann graphische Darstellungen 
erzeugen, er kann Musik produzieren, er kann Steuerungs- 
aufgaben übernehmen u.ä. Dies bedeutet also, daß die 
Rechner, die heute manchmal schon für ein paar Hundert 
Mark zu erwerben sind, nicht nur die Rechenkapazitäten 
bereitstellen wie z.B. die Großrechner der sechziger Jah- 
re, die damals unerschwinglich teuer waren, sondern sie 


sind viel universeller einsetzbar. 


Daten: Unter "Daten" kann man im weitesten Wortsinn 
"Informationen" verstehen. Im einzelnen kön- 


nen dies z.B. sein: 


Ziffern und Zahlen 
Werte 

Buchstaben 

Symbole (Sonderzeichen) 


Worte und Texte 


Unter "Datenverarbeitung" versteht man dann 
alle Prozeduren (häufig rechnerischer Art), 
derartige Daten zu erfassen, zu speichern, 
auszuwerten oder zu analysieren und Ergeb- 


nisse auszugeben. 


Führt man Datenverarbeitung im obigen Sinn nicht per Hand, 
sondern mit Hilfe von Rechnern (Computern) durch, dann 


ist es sinnvoll, auch die folgenden Begriffe zu kennen: 
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Unter einem bit "binary information digit) ver- 


steht man die kleinste Informationseinheit (s.o.: 


"Daten" = "Informationen"). 


Die kleinste Informationseinheit nennt man ein 
bit deshalb, weil in einem bit nur zwei Infor- 

mationsinhalte vorstellbar sind. Aus der Sicht 
des Computerherstellers gesprochen, heißt dies: 
Ein bit kann nur zwei Informationsinhalte spei- 
chern. 

Diese beiden Informationsinhalte werden übli- 


cherweise bezeichnet mit ® und 1. 


Ein byte ist eine Zusammenfassung einer Folge 
von bits. 

Üblicherweise bilden 8 bits ein byte. Ein byte 
ist somit in der Lage, eine Folge von 8 Nullen 


und/oder Einsen zu speichern. 


wir unterscheiden drei Gruppen von Symbolen: 


1. numerische Symbole = Ziffern 
2. alphabetische Symbole = Buchstaben 


3. sonstige Symbole = Sonderzeichen 


Im allgemeinen wird jedes dieser Symbole im 
Rechner dargestellt als Folge von 8 Nullen 
und/oder Einsen, d.h. ein byte (s.o.) nimmt 


ein Symbol auf. 


Voß 
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Variable: 
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Eine Folge von Symbolen (z.B. Worte oder 
zahlen) bilden ein Feld. 


Beispielsweise besteht das Wort PRINT aus 
5 Symbolen, belegt mithin 5 byte im Rechner, 
und da diese 5 Symbole zusammengehören, bil- 


den sie ein Feld. 


Entsprechendes gilt für die Zahl 178. Sie 
wird in einem dreistelligen Feld gespeichert 
(man sieht, daß es auch einstellige Felder 
geben kann). 


Eine Variable ist eine veränderliche Größe 
oder - präziser gesprochen - ein Name, unter 
dem verschiedene Werte (s.u.) angesprochen 
werden können. 


Beispielsweise stehen hinter dem Variablen- 


namen "Körpergröße" die Werte 178, 185, 167 usw. 


hinter dem Namen "Kinderzahl" z.B. die Werte 1, 
2, ®, 4 usw., hinter dem Namen "Ort" z.B. die 


Werte "Dortmund", "Bochum", "Kassel" und dergl. 


Wie aus der vorangegangenen Begriffsklärung 


schon zu entnehmen ist, verstehen wir unter 


dem Begriff "Wert" eine bestimmte Ausprägung 


einer gegebenen Variablen. Es muß sich dabei 
nicht notwendigerweise um Zahlen handeln, son- 
dern wie das obige Beispiel der Variablen 
"Ort" zeigt, können als Werte auch Worte oder 


Texte auftreten. 


Die Werte belegen jeweils ein Feld im Rechner 


(s.o.). Man spricht auch von einer Speicher- 
stelle. 


’ 


Voß 
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Einen Text, der z.B. als Variablenausprägung 


auftreten kann (s.o.), nennt man "string"; 


allgemein gesprochen handelt es sich um eine 


Zeichenkette. 


Die Gesamtheit aller Ausprägungen einer 
Variablen (Zahlen oder Worte) nennt man 


"array". 


Mehrere zusammengehörige Felder nennt man einen 
Datensatz. 

Beispielsweise bilden alle vorhandenen Angaben 
über eine Person (Name, Geschlecht, Alter, 
Wohnort etc.) einen Datensatz. In diesem Bei- 
spiel wäre ein Datensatz also eine Folge zu- 
sammengehöriger Zahlen und/oder Worte. 

Aber auch eine Folge nur von Worten kann als 


Datensatz bezeichnet werden, z.B. die Programm- 


anweisung: 
PRINT "OTTO", "SUSI", "OLAF" 


Der Datensatz wird auch als "record" bezeichnet. 


Mehrere zusammengehörige Datensätze bilden eine 
Datei. Beispielsweise erhalten wir eine Datei, 
wenn wir die Datensätze aller Beschäftigten 
eines Unternehmens zusammenstellen. Genauso wür- 
den wir eine Datei erhalten, wenn wir alle Pro- 
grammanweisungen eines Programms insgesamt be- 
trachten. 


Die Datei wird auch als "file" bezeichnet. 
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Es wurde schon erläutert, was unter "Datenverarbei- 
tung verstanden werden soll. Daraus geht hervor, daß 
eine Datenverarbeitungsanlage die folgenden Tätigkei- 


ten (Funktionen) ausführen muß: 


Informationsaufnahme (Dateneingabe) 
Informationsspeicherung Eingabe 


Verarbeiten von Daten im engeren 
Wortsinn (z.B. Rechnen oder Um- 
stellen von Texten und dergl.) 


Verarbeitung 


Ausgabe von Ergebnissen Ausgabe 


Informationseingabe, -verarbeitung und -ausgabe machen 
eine Reihe organisatorischer Schritte notwendig, die 

wir hier nicht zu besprechen brauchen, weil sie der Rech- 
ner im allgemeinen selbständig erledigt. Verantwortlich 
dafür ist das sog. Betriebssystem. 

Der Rechner muß also von uns Informationen erhalten, da- 


mit ein Datenverarbeitungsprozeß in Gang kommen kann. 


Er gibt seinerseits Informationen zurück, beispielsweise 


errechnete Ergebnisse. 


Diejenigen Informationen, die wir ihm geben müssen, las- 


sen sich in drei Informationsgruppen einteilen: 


1. Zu verarbeitende Daten 


2. Programmanweisungen 


(Arbeitsschritte, die notwendig sind, 
um die eingegebenen Daten den gewünsch- 
ten Auswertungsprozeduren zu unterziehen) 


3. Kommandos 


(Mitteilungen und Anweisungen an das 
Betriebssystem des Rechners; s.o.) 
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Entsprechend den unterschiedlichen Teilaufgaben, die der 


Rechner erledigen muß, unterteilen wir: 


1. Eingabegeräte (z.B. Tastatur) 
2. Verarbeitungsbereich (die sog. Zentraleinheit) 


3. Ausgabegeräte (Bildschirm oder z.B. Drucker) 


Darüber hinaus gibt es sog. externe (oder periphere) 
Speicher. Sie dienen dazu, Programme oder Datenbestände 


auf Dauer aufzubewahren. In der Regel handelt es sich 


dabei um Tonband-Kassetten oder um sog. Disketten, die 


in entsprechenden Laufwerken bespielt bzw. gelesen wer- 


den können. 
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1 ö IA Problemanalyse 


Wenn ein bestimmtes Problem mit Hilfe eines Computers 
gelöst werden soll, so ist dies nur dann möglich (der 
Leser möge diese Anmerkung immer beachten), wenn der Com- 
puterbenutzer den Lösungsweg vorher schon gefunden hat. 
Das heißt, daß die Problemlösung an sich, trotz aller 
modernen Rechner, immer noch nach wie vor nur im Kopf 
und nicht in der Maschine erledigt werden kann; 

der Rechner entlastet uns dann nur von der Aufgabe, den 


Lösungsweg Schritt für Schritt abzuarbeiten. 


Damit ein Rechner nun diese Abarbeitung leisten kann, 
muß ihm der eigentliche Lösungsweg als Folge einzelner 
Anweisungen Schritt für Schritt vorgezeichnet werden. 
Dies wiederum macht es erforderlich, daß ein zu lösen- 
des Problem zunächst gedanklich in eine logische Folge 


von Einzelschritten zerlegt wird - wir bezeichnen die- 


sen Vorgang als Problemanalyse. 


Häufig ist es bei einer derartigen Problemanalyse hilf- 
reich, wenn man die Folge von Arbeitsschritten graphisch 
in Form eines sog. Flußdiagramms darstellt. 

Dies zeigt anschaulich das folgende Beispiel: 
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| Buch aufschlagen | 


| an 
inige Seiten 
lesen 


= 


alles 
verstanden 


Stop 
Buch in die 
Ecke feuern 


Stop 
einschlofen 


Quelle : W.VOSS : BASIC leicht und schnell gelernt 
am alphaTronic PC, Darmstadt 1984, 
(Heim-Verlag), Seite 8. 
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In den folgenden Kapiteln werden wir auf dieses Instru- 
ment der "Problemzergliederung" zurückgreifen. weil auf 
diese Weise das Programmieren, d.h. die Erstellung der 
Anweisungsfolge für den Computer, wesentlich erleich- 
tert wird und logische Programmfehler eher vermieden 


werden können. 
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1 . e) Ergebnisausgabe 


Eine Folge von Anweisungen, die einen Rechner veran- 
lassen, ein vorgegebenes Problem selbständig zu lösen, 
nennt man ein Programm. Es muß in einer Sprache ge- 
schrieben werden, die der Rechner verstehen kann. 


Eine solche Sprache ist die Programmiersprache BASIC. 


Beginner's 
All-Purpose 
Symbolic 
Instruction 
Code 


Jedes BASIC-Programm besteht aus einer Folge von An- 
weisungen (Statements), die dem Rechner zeilenweise 


eingegeben werden. Eine Zeile nennen wir Satz. 


Regel 1: Jeder Satz in BASIC benötigt 
eine Satznummer 


Jeder Satz muß mit der ENTER 
Taste abgeschlossen werden. 


In einem Satz können mehrere 
Statements stehen, die dann 
durch Doppelpunkte voneinander 
zu trennen sind. 
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Statement 1: 


nn END 


Das END-Statement beschließt das BASIC-Programm. 


Statement 2: 


PRINT 


Das PRINT-Statement bringt Ergebnisse auf den Bild- 


schirm. Man unterscheidet fünf Möglichkeiten: 


leer : Ergibt eine Leerzeile 
zahl : Die Zahl wird ausgegeben 


Rechnung : Das Ergebnis der Rechnung wird 
ausgegeben 


String : Der String wird ausgegeben (ein 
String ist eine Zeichenkette, die 
in Anführungszeichen einzuschlies- 
sen ist) 


Variablenname : Der Inhalt des Speicherfeldes mit 
diesem Namen wird ausgegeben 


Das Wort PRINT darf durch ein ? abgekürzt werden. 
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Das folgende einfache BASIC-Programm benutzt alle die- 
se Möglichkeiten ; 


PRINT 3 
PRINT 
PRINT 4.8/2 
Snsusı" 

? 

?XxX 

END 


Ein solches BASIC-Programm wird erst abgearbeitet, wenn 
wir das Kommando RUN eingeben: 


Kommando 1: 


Für das obige Beispiel erhalten wir nach dem Kommando 


RUN auf dem Bildschirm die folgenden Ergebnisse: 
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Regel 4: Kommandos erhalten keine Satznummer 


Wollen wir nach dem Ergebnisausdruck unser Programm 
auf dem Bildschirm noch einmal sehen, benötigen wir 


das folgende Kommando: 


Kommando 2: 


Zum PRINT-Statement sind noch einige Anmerkungen er- 


forderlich: 


Die verschiedenen Möglichkeiten, die in Statement 2 
genannt wurden, können in einem PRINT-Statement mehr- 
fach und auch gemischt verwendet werden. 

Sie sind dann durch Kommata oder durch Strichpunkte von- 


einander zu trennen. 
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Werden die verschiedenen Ausdrücke im 
PRINT-Statement durch Kommata getrennt, 
wird der Ausdruck zu Beginn der näch- 
sten Bildschirmzone fortgesetzt; wird 
das Semikolon als Trenner benutzt, geht 
es unmittelbar weiter. 


Jeder PRINT-Befehl bewirkt in der Regel 
auch einen Zeilenvorschub. Steht im 
Statement nur das Wort PRINT, so erfolgt 
nur ein Zeilenvorschub. 


Ein Komma oder ein Semikolon am Ende 
eines PRINT-Statements unterdrückt 
den Zeilenvorschub. 


Das PRINT-Statement erzeugt Ergebnisausdrucke, die am 
linken Bildschirmrand beginnen. Will man dies ändern, 
kann man sich der TAB-Funktion (TAB = Tabulator) be- 

dienen. 


PRINT TAB(18) 8 


rückt den Ausdruck des Wertes 8 zehn Stellen nach 
rechts. 


Auf den Begriff des Variablennamens, der im PRINT- 
Statement ja auch schon eine Rolle spielte und auf 
Einzelheiten der ausführbaren Rechnungen, kommen wir 


im folgenden Abschnitt zu sprechen. 


Will man vor der Eingabe eines neuen Programms ein 
eventuell schon vorhandenes, altes und nun nicht 
mehr benötigtes Programm löschen, benötigt man das 
folgende Kommando, welches den Inhalt des Programm- 
speichers löscht: 


Kommando 3: 
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Für viele Zwecke ist es - wie man noch sehen wird - 
sehr sinnvoll, wenn Speicherplätze im Rechner mit 
Namen versehen werden können, damit dann unter diesen 


Namen unterschiedliche Werte gespeichert werden können. 


Zunächst genügt es, drei Typen von Variablen zu unter- 
scheiden: 

1. Reelle Variablen 

2. Ganzzahlige Variablen 


3. Stringvariablen 


Reelle Variablen können als Werte reelle Zahlen an- 
nehmen, also z.B.: 3.5 -17.81 18. 8.84 -7.5 etc. 
(statt des Dezimalkommas wird beim Programmieren ein 


Punkt verwendet) 


Ganzzahlige Variablen können als Werte nur ganze Zahlen 
annehmen, also z.B.: 4 8 -3 10) 29 etc. 


String-Variablen haben als Werte Symbolfolgen, die in 


Anführungszeichen einzuschließen sind, also z.B.: 


"OTTO" "og" "DORTMUND" "A-15" usw. 


Die Namen reeller Variablen bestehen aus 
einem oder zwei alphanumerischen Zeichen, 
wobei das erste ein Buchstabe sein muß. 

Die Namen ganzzahliger Variablen werden 
zusätzlich mit % versehen. 

Die Namen von Stringvariablen werden statt- 
dessen zusätzlich mit 3 versehen. 
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Bei vielen Rechnern dürfen die Namen 
auch länger sein (Benutzerhanäbücher 


konsultieren!). 


Beispiele: 


Reelle Variablen: 
Ganzzahlige Variablen: 


Stringvariablen: 


Nach dieser Begriffsklärung können wir das LET-State- 
ment besprechen, welches der Wertzuweisung dient, so 
daß für einen gesamten Programmablauf dieser Wert dann 
zur Verfügung steht: 


Statement 3: 


nn LET 


Das Wort LET darf auch entfallen. 


Mit diesem Statement kann also, wie auch übrigens 


mit dem PRINT-Statement, gerechnet werden. 
Die Rechenoperatoren sind die folgenden: 
+ Addition 
= Subtraktion 
Multiplikation 
Division 


Potenzierung 
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Die Rangfolge der Operatoren entspricht der aus der 
Schulmathematik bekannten; bei Bedarf kann durch Klam- 


mersetzung davon abgewichen werden. 


Mit dem LET-Statement können also auch schon kompli- 
ziertere Anweisungen geschrieben werden. Wenn man 

sich dabei vertippt, besteht die einfachste Korrektur 
darin, den fehlerhaften Satz per ENTER-Taste zu 
schließen und ihn darunter einfach neu zu schreiben. 
Soll ein Satz ganz gelöscht werden, so gibt man einfach 


seine Satznummer ein plus ENTER-Taste. 


Soll ein Satz nachträglich in ein Programm eingefügt 
werden, so wird dies durch Vergabe passender "Zwischen- 


Satznummern" erreicht. 


Viele Rechnungen können durch die sog. eingebauten 


Funktionen erleichtert werden. Die wichtigsten dieser 


Funktionen sind die folgenden: 


Allgemeine Schreibweise: 


Var.name = Funktionsname (Argument) 
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Wichtige Funktionen 


Name 


SIN 
cos 
TAN 


LOG 
EXP 


Aufgabe 


berechnet die Winkelfunktionswerte, 
wobei als Argument Einheiten des 
Kreisparameters 7 zu verwenden ist 


natürlicher Logarithmus 
Umkehrung dazu 


Quadratwurzel 
Absolutwert 


größter, in einem reellen Wert vor- 
handener, ganzzahliger Teil 


Zufallszahlenerzeugung 


Ausgabe eines ASCII-Code-Zeichens 


Beispiele zu diesen Funktionen sind hier entbehrlich. 


Sie finden sich zur Genüge in den folgenden Kapiteln. 
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1 . / Informationseingabe 


Zur Informationseingabe eignet sich hervorragend das 


folgende Statement: 
Statement 4: 


INPUT ("Text"; ) Var.liste 


Dieses Statement sieht recht kompliziert aus, ist aber 


leicht zu verstehen: 


Gelangt der Rechner an dieses Statement, unterbricht 

er die Programmabarbeitung und produziert ein Frage- 
zeichen auf dem Bildschirm (zusätzlich zu dem even- 
tuell angegebenen "Text", der aber auch weggelassen 
werden kann; deshalb oben in Klammern). Er erwartet dann 
vom Benutzer so viele Werte (durch Kommata zu trennen), 
wie Variablennamen in der Variablenliste genannt sind 
(also mindestens einen Wert, wenn nur ein Name genannt 


ist). 


Beispiele: 


INPUT X Der Rechner erwartet eine Zahl, 
die dann im Feld X gespeichert 


wird. 


INPUT A,B,C Der Rechner erwartet drei Zahlen. 
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INPUT "BITTE NAMEN EINGEBEN" ;N$: 


Der Rechner druckt den String, 
der in Anführungszeichen steht, 
und erwartet dann einen String 
(z.B. "OTTO"), der im Feld NS 


gespeichert wird. 


Die Variablennamen in der Variablen- 
liste des INPUT-Statements werden 
durch Kommata getrennt. 

Die einzugebenden Werte müssen genauso 
getrennt werden. 


Beispiel : 


INPUT "BITTE 4 WERTE : ";A,B,C,D 
LETS=A+B+cC+D 

LET AM = S/4 

PRINT"MITTELWERT = 

END 


Dieses Programm berechnet offenbar den Durchschnitt 


aus beliebigen vier einzugebenden Zahlen. 
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1 Pr 8 _Programmverzweigungen 


Solange in einem BASIC-Programm keine Verzweigungen 
auftreten (sog. Sprünge), erfolgt die Abarbeitung 
in der Reihenfolge der vergebenen Satznummern. 

will man von dieser Reihenfolge abweichen, so sind 
Programmsprünge erforderlich. 


Wir unterscheiden unbedingte Sprünge von bedingten 
Sprüngen. 


Betrachten wir zunächst den bedingten Sprung, der mit 


Hilfe des folgenden Statements möglich ist: 


Statement 5: 


Anweisung 


IF Bedingung THEN < FRE ORRS 


Dieses Statement veranlaßt das Betriebssystem des Rech- 
ners zu einer Abfrage: Wird die Bedingung, die nach dem 
Befehlswort IF steht, erfüllt, so wird der hinter dem 
THEN stehende Befehl ausgeführt bzw. es wird zum Satz 


mit der Nummer mm verzweigt. 


Ist die Bedingung hingegen nicht erfüllt, so geht 
die Programmsteuerung zu dem Satz über, der nach 
dem IF-Statement folgt. 
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Ist die Bedingung im IF-Statement 
erfüllt, so wird die Anweisung 
hinter THEN ausgeführt bzw. zu der 
dort stehenden Satznummer ver- 
zweigt. 


Ist die Bedingung nicht erfüllt, 
wird der nächste Satz bearbeitet. 


Regel 11: Stehen hinter dem IF-Statement noch 
weitere Statements im gleichen Satz, 
so werden diese nur dann ausgeführt, 
wenn die Bedingung erfüllt ist. 


Beispiel : 


18 I 1 

28 Q I*I 

36 W SOR(I) 

48 PRINT I,Q,W 

55 1I=1I+1 

68 IF I<=28 THEN 29 
78 END 


Dieses Programm bestimmt offensichtlich für alle gan- 
zen Zahlen von 1 bis 2 (jeweils im Feld I zu finden), 
die Quadratzahlen (im Feld Q; Satz 29) und die Qua- 
dratwurzeln (im Feld W; Satz 39) und druckt die je- 
weils zusammengehörigen drei Werte zeilenweise auf dem 


Bildschirm. 
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Entscheidend dabei ist Satz 69. Er besagt, daß das 
Programm immer wieder zum Satz 2® zurückkehren soll, 
solange im Feld I nach der Erhöhung des Inhalts die- 
ses Feldes jeweils um 1 (Satz 59) ein Wert steht, 
der kleiner als 21 ist. 


Solange diese Bedingung erfüllt ist, wird das getan, 


was hinter dem THEN steht (nämlich Rücksprung nach 
Satz 29); ist sie nicht mehr erfüllt, wird der dem IF- 
Statement folgende Satz (Satz 79) bearbeitet. 


Die Alternative zum bedingten Sprung ist der unbeding- 
te Sprung: 


Statement 6: 


Erreicht die Programmsteuerung dieses Statement, so 


erfolgt ein Sprung zum Satz mit der Nummer mm. 
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CLS 

INFUT"BITTE WERT EINGEBEN : "3X 
N=N+1 

S=S+X 

INFUT"NOCH EIN WERT (J/N) "zA$ 
IF At="J" THEN 20 

AM=S/N 

FRINT"MITTELWERT = "AM 

END 


Dieses Programm bestimmt für eine beliebige Zahl einzu- 
gebender Werte das arithmetische Mittel. Wenn ein Wert 


gegeben wurde, fragt der Rechner den Benutzer, ob noch 


einer einzugeben ist. Antwortet der Benutzer mit "J" 
(für "JA"), so erfolgt ein Sprung von Satz 6® zu Satz 
28 und der nächste Wert wird angefordert. 

Ist hingegen kein weiterer Wert vorhanden, d.h. ant- 
wortet der Benutzer beim INPUT-Statement in Satz 5® 
nicht mit "J", so erfolgt die weitere Programmabarbei- 
tung ab Satz 7® (Berechnung und Ausgabe des Mittel- 


werts). 
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1 . 9) Programmschleifen 


Häufig ist es sinnvoll, daß bestimmte Programmteile 
mehrfach zu durchlaufen sind. Zu diesem Zweck be- 
nötigt man sog. Schleifen (loops). Solche Schleifen 
können mit denjenigen Statements, die wir bisher be- 
sprochen haben, leicht erzeugt werden, wie das Bei- 


spiel des vorangegangenen Programms zeigt. 


Mit den folgenden Statements geht die Schleifenkon- 
struktion einfacher und es werden zudem zusätzliche 


Möglichkeiten eröffnet. 


Statement 7: nn FOR Laufvarname = Anfangswert 


TO Endwert (STEP Schrittweite) 


Das folgende Statement gehört notwendig dazu: 


Statement 8: nn NEXT Laufvarname 


("Laufvarname" steht dabei als Abkürzung für : 
"Name einer Laufvariablen"). 


Die Laufvariable, die in diesen beiden Statements 
auftaucht, muß eine reelle Variable sein. Anfangs- 
wert, Endwert und Schrittweite können Zahlen, Variab- 


len oder arithmetische Ausdrücke sein. 
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"Gelangt der Rechner an das FOR-Statement, so wird 
zunächst die Laufvariable gleich dem Anfangswert ge- 
setzt und der Programmteil zwischen FOR und NEXT wird 
mit diesem Wert durchlaufen. 

Bei Erreichen des NEXT wird nun die Laufvariable auf 
den nächsten Wert, nämlich Anfangswert + Schrittweite, 
gesetzt und wieder derselbe Programmteil abgearbeitet, 


jetzt mit dem 2. Wert der Laufvariablen. 


Dies erfolgt solange, bis bei Erreichen des NEXT durch 
weitere Addition der Schrittweite der Endwert über- 
schritten wird. Dann wird der nach NEXT folgende Satz 


bearbeitet. 


"STEP Schrittweite" kann aus dem FOR-Befehl weggelas- 


sen werden, wenn die Schrittweite gleich eins sein soll. " 
(PRUST, 1982, S. 64). 


Das folgende Programm druckt 19 mal "GUTEN TAG" 


untereinander: 


FOR I = 1 TO 1$ 
?"GUTEN TAG" 


NEXT I 
> 


?"ENDE" 
END 


Voß Kapitel 1 . BASIC 
Abschnitt 10 , Benutzung externer Speicher 
Schule 


1 ‚10 Die Benutzung externer Speicher 


Gelungene Programme möchte man gern auf Dauer aufheben, 
so daß man bei Bedarf wieder darauf zurückgreifen kann 
(entsprechend gilt, daß man ab und zu gern schon vor- 
handene Programme anderer Verfasser benutzen möchte). 
Dies wird ermöglicht, wenn man Tonbandkassetten oder 
Disketten benutzt. Dabei muß man die folgenden Komman- 


dos kennen. 


Zum Laden eines Programms von einer Kassette benötigen 


wir: 


Kommando 4: 
LOAD "Name des Programms" 


Nach der Aufforderung des Rechners ist dann das 
Kassettengerät zu bedienen, wobei darauf zu achten 
ist, daß die eingelegte Kassette nicht so weit vor- 
gespult ist, daß der Anfang des gewünschten Pro- 


gramms nicht mehr gefunden werden kann. 


Zum Speichern eines Programms auf Kassette benötigen 


wir: 
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Kommando 5: 
SAVE "Name des Programms" 


Will man feststellen, welche Programme sich alle auf 
einer Kassette befinden, will man sich also ein In- 


haltsverzeichnis ausgeben lassen, so ist einzugeben: 


Kommando 6: 
CAT 


Auf dem Bildschirm wird dann, wenn der Benutzer den 
Anweisungen des Rechners gefolgt ist, ein Kassetten- 


Inhaltsverzeichnis ausgegeben. 
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1 1 1 Ergänzungen 


kin paar wenige, nützliche Ergänzungen mögen dieses 
zusammenfassende Übersichtskapitel beschließen. 


Es sieht ganz gut aus, wenn der Bildschirm bei der 
Programmabarbeitung zunächst gelöscht wird, bevor 
die ersten Ergebnisse ausgegeben werden. Dies wird 
ermöglicht mit der Anweisung: 


Statement 9: 


Häufig ist es sinnvoll, einen Programmlauf zu stoppen, 
beispielsweise dann, wenn man eine sog. Endlosschleife 
programmiert hat. Betätigt man die Taste ESC ,„ so 
hält die Programmabarbeitung an und wird durch Drücken 
irgendeiner anderen Taste wieder aufgenommen. 

Drückt man die ESC -Taste zweimal, bleibt das Pro- 
gramm endgültig stehen. 


Schließlich ist anzumerken, daß mit dem Statement 


Statement lo: 


der Programmablauf vom Programm selbst unterbrochen 
werden kann. Soll das unterbrochene Programm weiter ab- 


gearbeitet werden, benötigen wir das Kommando: 


Kommando 7: 
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Schließlich sei ergänzend angemerkt, daß es häufig 
sehr nützlich ist, in ein Programm erklärende Anmer- 
kungen (Überschriften, Kommentare, Erläuterungen usw.) 
einzufügen. Dies kann mit dem folgenden Statement ge- 


schehen: 


Statement 11: 


Dieses Statement hat keinen Einfluß auf die Programm- 
abarbeitung, erscheint aber in jeder Programmliste, 


die erstellt wird. 


Diese Ausführungen mögen genügen, um auch dem Anfänger 
eine Vorstellung von den Grundelementen der Programmier- 
sprache BASIC zu vermitteln. So wird er in die Lage ver- 
setzt, die Bausteine der folgenden Anwendungsprogramme 
zu verstehen. Sollten dennoch Verständnisprobleme blei- 


ben, so gilt der folgende Ratschlag: 
AUSPROBIEREN 


Beim Ausprobieren von Programmen und beim Versuch, ge- 
danklich nachzuvollziehen, warum der Rechner genau das 


tut, was er tut, lernt man am meisten. 


Voß 


Schule 
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2 1 Vorbemerkung 


Die Mathematik ist derjenige Bereich, der uns am ehesten 
einfällt, wenn die Frage gestellt wird, wofür denn über- 
haupt Computer eingesetzt werden. Deshalb wollen wir mit 
diesem Bereich äie inhaltlichen Ausführungen beginnen. 

Wir werden später aber sehen, daß die Mathematik nur ein 


Anwendungsbereich unter vielen ist. 


Allerdings stehen wir nun, wie auch in den folgenden Ka- 
piteln, vor dem Problem, welcher Art die Beispiele sein 
sollen, die hier zweckmäßigerweise aufzunehmen sind. Die 
Mathematik umfaßt ja bekanntlich ein sehr weites Spektrum 
unterschiedlicher Schwierigkeitsgrade - beginnend viel- 
leicht bei den Grundrechenarten und bei der Differential- 


und der Integralrechnung noch lange nicht endend. 


wir wollen das hier so handhaben, daß wir Probleme "mitt- 
leren Schwierigkeitsgrades" aufgreifen, also uns etwa an 
denjenigen Aufgabenstellungen orientieren, wie sie zum 


Beispiel in der gymnasialen Mittelstufe, also in den 
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Jahrgangsstufen 8 bis 10 auftreten. Sie eignen sich sehr 
gut dazu, die Möglichkeiten von Rechnern zu demonstrie- 
ren, ohne daß wegen des eventuell zu hohen Komplexitäts- 
grades die Darstellung der behandelten Probleme zu viel 


Platz in Anspruch nehmen würde. 


Absicht dieses Buches ist es ja nicht, den Leser durch 
die Anwendungsbeispiele zu überfordern, sondern er soll 
erkennen, was Rechner leisten. Dies ist auch mit ein- 
fach strukturierten Fragestellungen möglich, die dem 


Schulalltag auch der jüngeren Leser angepaßt sind. 


Für aie Programme in diesem und in den folgenden Kapiteln 


gilt die folgende wichtige Anmerkung : 


Bei den Programmen wird darauf verzichtet, 


Eingeabefehler der Benutzer "abzufangen"! 


wenn also zum Beispiel bei einem bestimmten mathematischen 
Problem nur positive Zahlen verwendet werden können (so 
etwa beim Wurzelziehen), so ist im entsprechenden Pro- 


gramm nicht vorgesehen, den Benutzer dann zu informieren, 


wenn er irrtümlich eine negative Zahl eingegeben hat. 


Mit einem sehr einfachen Beispiel "mittleren Schwierig- 


keitsgrades" wollen wir nun beginnen. 
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22 Der Satz des Pythagoras 


Am berühmten Lehrsatz des Pythagoras kann in anschauli- 
cher Weise gezeigt werden, wie die einzelnen Beispiele 
gegliedert werden. 

Wir werden jeweils die folgenden Arbeitsschritte vollzie- 


hen 


Arbeitsschritte 
SCHRITT : Vorstellung des Problems 
SCHRITT : Problemanalyse 
SCHRITT : Flußdiagramm 


SCHRITT : Programm 


SCHRITT Variablenliste 


SCHRITT : Programmbeschreibung 


SCHRITT : Ergebnisse 
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Wenden wir uns nun, dieser Einteilung entsprechend, dem 


hier genannten Problem zu : 


(1) SCHRITT : Vorstellung des 
Problems 


Der Lehrsatz des Pythagoras besagt, daß im 
rechtwinkligen Dreieck äie Länge der Grundseite (Hypothe- 
nuse) sich ergibt als Quadratwurzel aus der Summe der 


beiden Kathetenquadrate. 


Dies illustriert die folgende Abbildung : 


c 


(2) SCHRITT : Problemanalyse 


Bei diesem Problem ist die Problemanalyse sehr 


einfach : 


Man muß sich dabei,wie bei allen folgenden Problemen 
auch, daran erinnern, daß ganz allgemein ein Datenverar- 


beitungsprozeß nach dem schon vorgestellten 


EVA - Prinzip 


abläuft. 
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Eingabe 
Verarbeitung 


Ausgabe 


Wir müssen bei der Problemanalyse also zunächst festlegen, 
welche Informationen der Rechner von uns bekommen muß, da- 


mit das gestellte Problem gelöst werden kann. 


Die notwendigen Eingabeinformationen sind offensichtlich 


die Längen der beiden Kathetenseiten a und b. 


Im Verarbeitungsschritt sind diese beiden Werte zu qua- 
drieren; es ist die Summe dieser beiden Quadrate zu bil- 
den und aus dieser Summe muß dann die Quadratwurzel ge- 


zogen werden. 


Der Ausgabeschritt besteht lediglich darin, das errechne- 


te Ergebnis (die Länge der Hypothenuse c) auf dem Bild- 


schirm auszugeben. 
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(3) schritt : Flußdiagramm 


Belege ein Feld A mit 
der Länge der einen 
Kathete 


Belege ein Feld B mit 
der Länge der anderen 
Kathete 


Bestimme das Quadrat 
des Wertes aus A (Q1) 


Bestimme das Quadrat 
des Wertes aus B (Q2) 


Bilde die Summe aus den 
beiden Werten in Q1 und 
02 (S) 


Berechne die Wurzel aus 

dem Wert im Feld S (C) 

Drucke den Inhalt des 
Feldes C 
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Kürzere Version des Flußdiagramns : 


Eingabe von A 
und B 


Quadriere A und 
B und bilde die 
Summe S aus bei- 
den Quadraten 


Drucke die Wurzel 
aus S 
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(u) schritt : Programm 


10 
20 
30 
40 
TPR 
60 
70 
80 
70 
100 
110 
120 
130 


18 
69 
78 
89 


REM Mi-FYTHAGORAS 

CLS 

FRINT"FROGRAMM ZUR BESTIMMUNG DER HYFOTHENUSE" 
FRINT" EINES RECHTWINKLIGEN DREIECKS." 
ERFNTEFRINT=FRINT TAB(10) "PROF.DR.W.VOSS, 1984" 


INPUT"ERSTE EATHETE 
INPUT" ZWEITE KATHETE 
Q1=ARA 

2=B#B 

S=-01+02 

C=SOR (S) 
FRINT:PRINT:FRINT"HYFOTHENUSE C = ";C 
END 


"A 
"BB 


Kürzere Programmversion 


m 


bis 58 : wie oben 

INPUT "ZWEI KATHETENWERTE : ";A,B 
C=SQR (Ar A+B*B) 

PRINT:PRINT "HYPOTHENUSE C = ";C:END 


(5)) schritt : Variablenliste 


Erste Kathete 

Zweite Kathete 

Hypothenuse 

Quadrat der ersten Kathete A 
Quadrat der zweiten Kathete B 


Summe der Kathetenquadrate 


r 


voß Kapitel 2 Mathematik 


Abschnitt 2 Pythagoras 
Schule 


(6.) scaritr : Programmbeschreibung 


Bei der Beschreibung beziehen wir uns auf die 


erste, die längere Programmversion 


Kommentar 


Der Biläschirm wird freigemacht 


Titelausdruck auf dem Bildschirm 


Für die erste Dreiecks-Kathete wird ein Wert 


angefordert und im Feld A gespeichert 


Entsprechend zweite Kathete für Feld B 


Berechnung des ersten Kathetenquadrats 


Berechnung des zweiten Kathetenquadrats 


Bestimmung der Summe der beiden Katheten- 
quadrate 


Bestimmung der Wurzel aus der Quadratsumme 


Ausdruck des Ergebnisses auf dem Biläschirm 


Beendigung des Programms 


Voß Kapitel 2 : Mathematik 


Abschnitt 2 : Pythagoras 
Schule 


(7) scritt : Ergebnisse 


Nach dem Starten des Programms (erste Programm- 


version) erscheint auf dem Bildschirm die Überschrift 


PROGRAMM ZUR BESTIMMUNG DER HYPOTHENUSE 
EINES RECHTWINKLIGEN DREIECKS. 


PROF.DR.W.VOSS, 1984 


Zwei Zeilen tiefer erhalten wir die erste Anforderung : 
ERSTE KATHETE : ? 


Geben wir daraufhin zum Beispiel den Wert 3 ein, so rea- 


giert der Rechner mit : 
ZWEITE KATHETE : ? 


Geben wir beispielsweise den Wert 4 ein, so antwortet der 


Rechner mit : 


HYPOTHENUSE C = 5 


Dieses Programm eignet sich also dazu, für beliebige Ein- 


gaben die Hypothenuse rechtwinkliger Dreiecke auszurech- 


nen. In diesem Sinn ist es also ganz allgemein gehalten. 


Kapitel Mathematik 


2 
Abschnitt 2 : Pythagoras 


Wir haben dieses Problem hier sehr ausführlich behandelt, 
um die Vorgehensweise bei den einzelnen Beispielen im De- 
tail zu illustrieren. Sicherlich werden wir uns bei den 
folgenden Beispielen daraufhin kürzer fassen können, zu- 
mindest wenn sie so einfach sind wie der Lehrsatz des 


Pythagoras. 


Kapitel 2 : Mathematik 
Abschnitt 3 : 9.9.T. und k.g.V. 


(1) schritt : Vorstellung des 
Problems 


Für viele algebraische Rechnungen ist es, ins- 
besondere beim Auftreten von Brüchen, sinnvoll, den größ- 
ten gemeinsamen Teiler (g.g.T.) und das kleinste gemein- 
same Vielfache (k.g.V.) verschiedener Zahlen zu kennen. 


Beim g.g.T. handelt es sich um den Wert, durch den zwei 


zahlen ohne Rest dividiert werden können, ohne daß es 


eine größere Zahl gibt, für die dies möglich wäre. 


Beim k.g.V. handelt es sich um die Zahl, die durch zwei 
Ausgangszahlen ohne Rest dividiert werden kann, ohne daß 


es eine kleinere Zahl gibt, für die dies gilt. 


Haben wir zum Beispiel die beiden Zahlen Z1 = 3% und 
22 = 48, so ist der g.g.T. offenbar 19 und das k.g.V. 
hat den Wert 129. (Der Leser möge dies durch Kopfrechnen 


überprüfen). 


voß Kapitel Mathematik 


Abschnitt : g.9.T. und k.g.V. 
Schule 


(2) SCHRITT : Problemanalyse 


Wie findet man nun bei zwei gegebenen Zahlen 


den g9.g.T. und das k.g.V.? 
Prüfen wir einmal anhand der beiden Zahlen 38 und 4@, 
wie sinnvollerweise vorzugehen ist, wenn man den g.g.T. 
finden will : 

1. Schritt : : 1 Rest 19 


2. Schritt : B 3 Rest 8 


In diesem Beispiel finden wir also den g9.g.T. folgender- 


maßen : 


1. Schritt : Division der größeren durch die kleine- 


re Zahl; Notieren des Rests. 


2. Schritt : Division der kleineren Zahl durch den 


Rest; Notieren des neuen Rests. 


Wird dabei der neue Rest null, so ist der Divisor, der zu 


diesem Nullrest führte, der gesuchte g.g.T. 


Dazu noch ein zweites Beispiel zur Verdeutlichung 
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2 
Abschnitt 3 g.g9.T. und k.g.V. 


Schule 


Feldi : 21 Feld2 : 22 Division 


(größere (kleinere 
zahl) zahl) 


Der g.g.T. von 78 und 42 ist also 6. 


Das Berechnungsschema, wie es die obige Tabelle zeigt, 


läßt sich leicht in ein Flußdiagramm umsetzen. 


Zunächst wenden wir uns aber noch dem kleinsten gemein- 


samen Vielfachen (k.g.V.) zu : 


Das k.g.V. von zwei Zahlen Z1 und Z2 kann man dadurch 
erhalten, daß man das Produkt dieser beiden Zahlen durch 


den g.g.T. dividiert. 
Für die beiden Zahlen 21 = 78 und Z2 = 42 gilt also 


z1 *# 22 78 » 42 


g.9.T. 6 


Wenn wir in einem BASIC-Programm diese Berechnung durch- 
führen wollen, gemäß der Übersichtstabelle oben, aber 
fortwährend die Feldbesetzungen verändern, müssen vor 


Voß Kapitel Mathematik 


Abschnitt g.g.T. und k.g.V. 
Schule 


der Berechnung des g.g.T. die einzugebenden Werte Z1 und 


22 in zwei Hilfsfeldern HI und H2 "zwischengespeichert" 


werden, um für die Berechnung des k.g.V. dann zur Verfü- 
gung zu stehen. 


Voß Kapitel 2 Mathematik 
Abschnitt 3 9.9:.T. und kK.9.V, 


Schule 


(5) scwitt : Flußdiagramm 


ingabe der größeren 
zahl 21 


Eingabe der keineren 
zahl 22 


Beleyung der Hilfsfel- 
der Hl und H2 mit 21 
und 22 


Division Q = 21/22 


Bestimmung des Divi- en er ae 
sionsrestes R en 
mit R 


Ist Rest R=9? 


KGV = (H1%H2)/GGT 


Ausgabe von GGT 
und KGV 


Kapitel : Mathematik 
Abschnitt 3 : g.g.T. und k.g.V. 


OR : Programm 


10 REM M2-66T UND EBV 

20 CLS 

30 FRINT"FROGRAMM ZUR BESTIMMUNG DES 6.6.T. UND" 
40 FRINT"DES K.G.V. AUS ZWEI EINGEGEBENEN ZAHLEN" 
SERERFNT=FRINTEFRINT TAB (10) "FROF.DR.W.VOSS, 1984" 


60 INFUT"GROESSERE ZAHL. = "3 2Z1 

70 FRINT:FRINT 

80 INFUT"ELEINERE ZAHL. ı "ıZ2 

90 Hi=Z1:H2=72 

100 Q=Z1/Z2 

110 R=Z1-Z2#INT (G) 

120 > 

130 

140 KGV=(HI1*H2) /GGT 

150 FRINT:PRINT:FRINT"G.G.T. = ";G6GT 
180 FRINT:FRINT:FRINT"E.G.V. = ":KGV 
170 FRINT:FRINT"ENDE DER BERECHNUNG": END 


65) SCHRITT : Variablenliste 


Größter gemeinsamer Teiler 
Hilfsfeld 1 

Hilfsfeld 2 

Kleinstes gemeinsames Vielfaches 
Quotient aus beiden Zahlen Z1 und 22 
Divisionsrest 

Größere Zahl 


Kleinere Zahl 
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Abschnitt 3 g.g.T. und k.g.V. 
Schule 


(6) schritt ‘  Programmbeschreibung 


Überschrift und Erläuterungen 


Eingabe der einen Zahl 


Zwei Leerzeilen 


Eingabe der zweiten Zahl 


Belegung der beiden Hilfsfelder Hi und 
H2 mit den eingegebenen Werten, damit 
diese später noch zur Verfügung stehen 
(siehe 149) 


Bestimmung des Quotienten aus beiden 


eingegebenen Zahlen 


Bestimmung des Divisionsrestes durch 


Benutzung der INT-Funktion 


Ist dieser Rest größer als null, wird 
das Feld Z1 mit der zweiten Zahl 22 

und das Feld 22 mit dem Rest R belegt 
und das Programm kehrt zurück zu Satz 


18B° 


Ist hingegen der Rest gleich null, so 
steht im Feld 22 der g.g.T., der in 
das Feld GGT übertragen wird 
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Abschnitt 3 g.g.T. und k.g.V. 
Schule 


Gemäß unserer Vorüberlegungen bestimmt 
sich dann das k.g.V. aus dem Produkt 
der beiden Zahlen (die noch in den Fel- 
dern Hi und H2 zu finden sind), divi- 


diert durch den g.g.T. 


158-16% Ausdruck der Ergebnisse mit einigen 
Leerzeilen dazwischen 


Beendigung des Programms 


(7) schritt : Programmergebnisse 


Nach dem Konmaando RUN meldet das Programm auf einem 


"geräumten" Bildschirm : 


PROGRAMM ZUR BESTIMMUNG DES G.G.T. UND 
DES K.G.V. AUS ZWEI EINGEGEBENEN ZAHLEN 


PROF.DR.W.VOSS, 1984 


GROESSERE ZAHL 


Geben wir nach Erscheinen dieses Fragezeichens, das ja 


bekanntlich eine Programmunterbrechung anzeigt, bei- 
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Abschnitt 3 g.g.T. und k.g.V. 
Schule 


spielsweise den Wert 78 ein, so fordert das Programm 


daraufhin die zweite Zahl an : 


KLEINERE ZAHL 


Geben wir zum Beispiel die Zahl 42 ein, so bringt der 
Rechner die folgenden Ergebnisse auf den Bildschirm : 


ENDE DER BERECHNUNG 


Kapitel Mathematik 
Abschnitt Primzahlenprüfung 


2.h Primzahlenprüfun 


(1) SCHRITT Vorstellung des 
Problems 


Es soll ein Programm entwickelt werden, wel- 
ches für eine beliebige eingegebene, positive, ganze 
Zahl prüft, ob diese eine Primzahl ist oder nicht. 


Bekanntlich handelt es sich bei einer Primzahl um eine 
Zahl, die nur durch 1 oder durch sich selbst ohne Rest 
teilbar ist. 


Voß Kapitel 2 Mathematik 


Abschnitt 4 Primzahlenprüfung 
Schule 


(2)) schritt ı  Problemanalyse 


Um zu prüfen, ob eine beliebige Zahl eine 
Primzahl ist, muß sie durch alle Teiler, die größer 
als 1, aber kleiner als sie selbst sind, geteilt wer- 
den. Sofern bei diesen Divisionen ein Rest auftritt, 
bzw. wenn das Divisionsergebnis nicht ganzzahlig ist, 


muß durch einen weiteren Teiler dividiert werden. 


Erzielt man bei einer dieser Divisionen ein Ergebnis 
ohne Rest, so ist die zu prüfende Zahl offenbar keine 
Primzahl. 


Wird bei allen denkbaren Divisionen hingegen ein Rest 
beobachtet, so ist schließlich festzustellen, daß die 
zu prüfende Ausgangszahl eine Primzahl ist. 


Die Teiler, die im einzelnen durchprobiert werden müs- 
sen, beginnen beim Wert 2 und können bei der Hälfte der 
Ausgangszahl enden; größere Teiler brauchen nicht pro- 
biert zu werden, weil dann auf gar keinen Fall mehr ein 


ganzzahliges Divisionsergebnis erzielt werden kann. 
Beispiel : Ausgangszahl X = 
Teiler : 12 Rest 1 
Teiler : 8 Rest 1 


Teiler : 6 Rest 1 
Teiler 


25 ist keine Primzahl. 


Kapitel Mathematik 
Abschnitt Primzahlenprüfung 


Beispiel : Ausgangszahl 


1. Teiler 7/2 3 Rest 1 
2. Teiler 7/3 2 Rest 1 


Ein weiterer Teiler braucht nicht mehr pro- 


biert zu werden, weil das Divisionsergebnis 


nicht mehr ganzzahlig werden kann, 


Da bei diesem Beispiel kein Rest 8 aufgetreten ist, 
gilt also 


7 ist eine Primzahl. 


Diese beiden Beispiele zeigen, daß wir Schritt für 
Schritt uen Teiler, mit dem Wert 2 beginnend, um je 
1 erhöhen müssen, bis maximal der Wert X/2 erreicht 
ist, 


Kapitel Mathematik 


Abschnitt Primzahlenprüfung 


X ist 
keine 
Primzahl 


X ist 
eine 
Primzahl 


Kapitel Mathematik 
Abschnitt Primzahlenprüfung 


Dieses Beispiel zeigt übrigens sehr deutlich, daß bei 
sorgfältiger gedanklicher Durchdringung des Problems 
das Programm wesentlich vereinfacht und damit auch be- 


schleunigt werden kann 


Man kann schon von vornherein feststellen, daß eine ge- 
rade Zahl keine Primzahl sein kann, denn sie ist ja auf 


jeden Fall durch 2 teilbar. Deshalb können gerade Zah- 


len schon zu Beginn des Prüfprogramms als "Nicht-Prim- 


zahlen" ausgeschieden werden. 


Bei den verbleibenden, den ungeraden Zahlen braucht 
für eine beliebige Zahl X der Teiler offenbar nicht 
bis X/2 zu laufen, sondern es genügt, wenn wir bis ma- 
ximal X die Divisionen probieren. Wenn bis dahin 
keine Division ohne Rest möglich war, dann wird dies 


auch bei größeren Teilern nicht mehr möglich sein. 


Der Leser überlege sorgfältig, warum diese Überlegung 


richtig ist. 
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Abschnitt Primzahlenprüfung 
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©) SCHRIIE 5 PIOgRan 


10 REM M3-FRIMZAHL 

20 CLS 

30 FRINT"FROGRAMM ZUR FRUEFUNG, OB EINE EINGEGE-" 

40 FRINT"BENE ZAHL EINE FRIMZAHL IST ODER NICHT." 

SERERFNT:FRINTEPRINT TAB(10) "PROF.DR.W.VOSS,. 1984" 


60 INPUT "BITTE EINE GANZE ZAHL =: "3X 

70 T=2 

80 IF X/2=INT(X/2) THEN 140 

90 Q=X/T 

100 IF Q=INT(Q) THEN 140 

110 T=T+tl 

120 IF T@=SQOR (X) THEN 90 

150 FRINTEPRINTEFRINT %;" IST EINE FRIMZAHL.":GOTO 


gan. PRINT:FRINTEFRINT ı" IST KEINE FRIMZAHL, SOND 


145 FRINT"DURCH ";T;" TEILBAR." 
150 FRINT:FRINT:FRINT"ENDE DER BERECHNUNGEN. "END 


(5!) schrirr : Variablenliste 


Quotient aus der Zahl X und dem Teiler T 
Teiler 


Einzugebende Zahl, die daraufhin geprüft wird, 
sie Primzahl ist oder nicht 


Kapitel : Mathematik 
Abschnitt ; Primzahlenprüfung 


SCHRITT ı  Programmbeschreibung 


Überschrift, Räumung des Bildschirms und 


Titelausdruck auf dem Bildschirm. 
Anforderung der zu prüfenden Zahl. 
Belegung des Teilerfeldes T mit 2. 

Wenn X durch 2 ohne Rest teilbar sein 
sollte (dann ist X/2 = INT(X/2)), dann 
weiter bei Satz 149; wenn nicht, weiter 
bei Satz 99. 

Division von X durch T (ergibt Q). 

Wenn bei der Division kein Rest aufge- 
treten ist (dann ist Q = INT(Q)), dann 
weiter bei Satz 1498, andernfalls weiter 
bei Satz 119. 


Erhöhung des Teilers T um 1. 


Solange nach dieser Erhöhung T noch klei- 


ner ist als X geht es zurück zum Satz 
99, andernfalls geht es bei 138 weiter. 


Wird der Satz 13% erreicht, dann deshalb, 
weil keine Division ohne Rest vollzogen 
werden konnte. Dies bedeutet, daß X eine 
Primzahl sein muß. 


Dieses Ergebnis wird ausgegeben und es 


Kapitel Mathematik 
Abschnitt Primzahlenprüfung 


erfolgt ein Sprung zum Satz 159. 


Satz 148 : Satz 148 wird nur in dem Fall erreicht, in 


und 145 dem eine Division ohne Rest gelungen ist. 


Dies bedeutet aber dann, daß X keine Prim- 
zahl ist, sondern (zumindest) durch den 
Wert im Feld T teilbar ist. 


Dies wird ausgegeben. 


Satz 158 : Beendigung des Programms. 


(7) SCHRITT i Ergebnisse 


Auf die Wiederholung des Titelausdrucks wollen wir nun 


hier und bei den folgenden Beispielen verzichten. 
Nachdem dieser Titelausdruck erfolgt ist, fordert das 
Programm die zu prüfende Zahl an und speichert sie im 
Feld X (auch auf die Wiedergabe der entsprechenden An- 
forderungstexte soll hier und bei den folgenden Bei- 
spielen verzichtet werden). 

Geben wir z.B. die Zahl 13 ein, so meldet der Rechner : 


13 IST EINE PRIMZAHL. 


ENDE DER BERECHNUNGEN. 


Kapitel Mathematik 
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Geben wir hingegen die Zahl 27 ein, so meldet der Rech- 
ner : 


27 IST KEINE PRIMZAHL, SONDERN DURCH 
3 TEILBAR. 


ENDE DER BERECHNUNGEN. 


voß Kapitel Mathematik 


Abschnitt Quadratische Gleichung 
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2 5 Quadratische Gleichung 


(3) schritt Vorstellung des 
Problems 


Das Lösen quadratischer Gleichungen gehört zu 
den wesentlichen Aufgabenstellungen der Mittelstufen- 
mathematik und bereitet auf komplexere Aufgaben vor. 


Die allgemeine Form einer quadratischen Gleichung, die 


nach der Unbekannten x aufzulösen ist, lautet : 


Dividiert man diese Gleichung durch den Koeffizienten 
a, so erhält man 


Die Lösung führt zu zwei Werten x und x, gemäß der 
folgenden Lösungsformel : 
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Abschnitt Quadratische Gleichung 
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(2) schritt ' Problemanalyse 


Je nach Konstellation der Koeffizienten a, b und c 
führt die Lösungsformel (3) zu unterschiedlichen Er- 


gebnissen. 


Beispielsweise erhalten wir Resultate außerhalb des 
reellen Zahlenbereichs, wenn der Wert unter der Wurzel 


negativ wird. Dieser Wert heißt Diskriminante (D). 


Zu Sonderlösungen gelangt man auch z.B. dann, wenn der 
Koeffizient a = 8 ist; dann liegt aber auch eigent- 


lich keine quadratische Gleichung mehr vor. 


Deshalb betrachten wir im folgenden nur die "echten" 
Fälle (a # 8) und zugleich die im reellen Bereich lös- 
baren Fälle (D>9@). Bei allen anderen Fällen soll das 


Programm eine Abbruchmeldung erzeugen. 


Zur Lösung des Problems verwenden wir einfach die For- 


mel (3) in der abgewandelten Form (4) : 


-p/2 t Yp’7a -q 


H steht als 


Hilfsgröße 
H + jD für -p/2 


Das entsprechende BASIC-Programm muß also zunächst die 
Größen H und D bestimmen und kann dann, in Abhängigkeit 
davon, ob D2$& oder D<g@, die Lösungen bzw. eine Ab- 
bruchmeldung ausgeben. 
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(5) schritt B Flußdiagramm 


Berechne 
P und Q 


Berechne 
H und D 


Lösung 
nicht 
möglich 


Ausgabe 
X1 und 
x2 
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(a)schrirt ! Programm 


10 REM M4-QUADRATISCHE GLEICHUNG 
20 CLS 
30 FRINT"FROGRAMM ZUR LOESUNG EINER QUADRATISCHEN" 


40 FRINT TAB (16) "GLEICHUNG. " 
SDRTRFNT:PRINTEPRINT TAB(10) "FROF.DR.W.VOSS, 1984" 


60 INFUT "FARAMETER DES QUADR.GLIEDS A "A 
70 INFUT "FARAMETER DES LIN.GLIEDS B ":B 
80 INPUT "EONSTANTES GLIED c "; 
90 F=B/A:Q=C/A 

100 H=-P/2:D=F+F/4-0 


110 "_D:&Ü :FRINT" 
10 TQ, THEN FRINT INT"LOESUNG NICHT MOEGLICH 


120 X1=H+SOR (D) : X2=H-SQOR (D) 

130 FRINT:FRINT:FRINT"ERSTE LOESUNG x1 

140 FRINT:PRINT:FRINT"ZWEITE LOESUNG X2 z 
150 FRINT:FRINT:FRINT"ENDE DER BERECHNUNGEN":END 


(5) SCHRITT A Variablenliste 


Koeffizient des quadratischen Teils 
Koeffizient des linearen Teils 


Konstante in der quadratischen Gleichung 


Diskriminante 
-P/2 

B/A 

C/A 


erste Lösung 


zweite Lösung 
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SCHRITT Programmbeschreibung 


Satz 12% 


Satz 1386-14ß: 


Satz 158 


Kommentar und Überschriftausgabe 


Eingabe der Koeffizienten der quadrati- 
schen Gleichung (in der Form der Glei- 
chung (1)) 


Bestimmung von P und Q gemäß Gleichung (2) 


Bestimmung der Hilfsgröße H und der Dis- 


kriminate D 


Wenn D kleiner als null ist, so erfolgt 
eine Abbruchmeldung auf dem Bildschirm 


und ein Sprung zu Satz 159 


Ist die Diskriminante hingegen nicht ne- 
gativ, so werden die beiden Lösungen X1 
und X2 berechnet 


Beide Lösungen werden auf dem Bildschirm 


ausgegeben 


Beendigung des Programms 


Voß Kapi tel 


Abschnitt 
Schule 


© SCHRITT 


Geben wir z.B. ein 
en 4, 
en 4, 


-24, 


geht es also um die q 


erzeugt das Progra 


2 
-3 
DER BERECHNUNGEN 


2 : Mathematik 


5 : Quadratische Gleichung 


Ergebnisse 


Der Leser sollte 
auch andere Werte 


erproben ! 


uadratische Gleichung : 


mm als Ergebnisausgabe 
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? 6 Euler'sche Zahl 


(2) schrirt ı Vorstellung des 
Problems 


Die Euler'sche Zahl, abgekürzt e, auch Wachs- 
tumskonstante genannt, spielt bei mathematischen Reihen- 
entwicklungen, die inhaltlich als Wachstums- oder Fort- 
pflanzungsketten betrachtet werden können, eine wichti- 


ge Rolle. 


Sie dient darüberhinaus als Basis der sog. natürlichen 
Logarithmen und wird uns im Kapitel über wirtschaftli- 


che Problemstellungen wieder begegnen. 


Wenn man den Wert dieser Zahl e vergessen hat, kann man 
mit Hilfe eines geeigneten BASIC-Programms diesen Wert 
ausrechnen, sofern man weiß, wie die Zahl e zustande- 
kommt. 


Es handelt sich bei e um den Grenzwert der folgenden 
Größe, wenn n gegen unendlich strebt : 


e = (1 + 1/n)” für n gegen unendlich. 
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Abschnitt 6 : Euler'sche Zahl 
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(2’) schritt \ Problemanalyse 


Die Problemanalyse ist bei dieser Fragestellung sehr 
einfach, denn es ist lediglich die vorangegangene For- 
mel zu programmieren. 


Dieses Programm kann dann für alternative, größer wer- 
dende Werte von n durchprobiert werden. Da der Wert e 
erst für n gegen unendlich erreicht wird, empfiehlt es 


sich, n rasch wachsen zu lassen, z.B. dadurch, daß man 


n von Rechendurchgang zu Rechendurchgang verdoppelt. 


Dies verlangt allerdings, daß man mit einem n-Wert be- 
ginnt, der größer als 1 ist (also z.B. mit n = 2), da- 


mit bei den Verdoppelungen n nicht beim Wert 1 verharrt. 


Voß 


Schule 


Kapitel 
Abschnitt 


Mathematik 


Euler'sche Zahl 


E=(1+1/n) N 


Es wird davon 
ausgegangen,daß 
12 "Runden" zu 
durchlaufen 
sind. 
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Schule 


(4) SCHRITT ‚ Programm 


10 REM MS-EULER 

=0 CLS 

20 FRINT"FROGRAMM ZUR BESTIMMUNG DER ZAHL E." 

40 FRINT 

PRIRERINTEFRINTEFRINT TAB(9) "PROF.DR.W.VOSS, 1984": 


60 N=2 

70 FRINT" n"„" E":FRINT 
80 FOR I=1 TO 12 

99 E=(1+1/N)”N 

100 FRINT N,E 

110 N=N#2 

120 NEXT I 

130 FRINT"ENDE":END 


(5) schritt Variablenliste 


Euler'sche Zahl (Näherungswert) 


Schleifenzählindex 


Parameter in der Berechnungsformel für die Euler' 
sche Zahl 
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SCHRITT ‘ Programmbeschreibung 


Überschrift 


Belegung des Parameters N mit dem Start- 


wert 2 


Ausgabe einer Tabellenüberschrift und 


einer Leerzeile 
Schleife über 12 Runden. In jeder Runde 
wird E berechnet, werden N und E ausge- 


geben und wird N verdoppelt 


Ende des Programms 


(7) schritt ! Ergebnisse 


Dieses Programm erzeugt eine Tabelle, in der anwachsen- 
den N-Werten die berechneten E-Werte gegenübergestellt 


werden. 


Man sieht bei dieser Gegenüberstellung, daß sich e einem 


festen Wert annähert. 


Wollte man diesem Grenzwert noch näher kommen, dann 


müßte das Programm noch mehr Schleifendurchläufe erle- 
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digen. Man müßte also den Satz 88 beispielsweise wie 


folgt ändern 


838 FOR I = 1 TO 3% 


Es ist allerdings dabei zu beachten, daß bei zu hohen 
Werten für n die Rechenungenauigkeiten des Computers zu 
Fehlern führen kann. 


Die sich durch obiges Programm ergebende Tabelle sieht 
folgendermaßen aus : 


2.25 

2.44148625 
2.56578451 
2.63792859 
2.67699%13 
2.69734495 
2.78773981 
2.71299162 
2.71563199 
2.71695572 
2.71761848 
2.71795887 
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2 J Prozentrechnung 
. a 


(2) schritt \ Vorstellung des 
Problems 


Beim Prozentrechnen spielt die Dreisätzrech- 
nung eine entscheidende Rolle. Sie beantwortet zun Bei- 
spiel die Frage, welchen Anteil ein bestimmter Betrag 
B an einer Gesamtgröße G ausmacht. Ein typisches Bei- 


spiel kann diese Aufgabenstellung gut verdeutlichen 


Ein Rechnungsbetrag beläuft sich auf netto DM 4598.--. 
Der Kunde muß zusätzlich die sog. Mehrwertsteuer bezah- 
len, die derzeit 14 % des Nettorechnungsbetrages aus- 
macht. Somit ergibt sich also : 


Bruttobetrag = Nettobetrag + Steuerbetrag 


Die Rechenaufgabe, die sich hier stellt, besteht also 
darin, den Steuerbetrag und danach den Bruttobetrag zu 
bestimmen, wenn der Nettobetrag und der Steuer-Prozent- 


satz gegeben sind. 


Natürlich könnte man genauso gut nach dem Nettobetrag 
fragen, wenn z.B. der Steuersatz und der Bruttobetrag 
gegeben sind. 
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(2) SCHRITT \ Problemanalyse 


Das oben genannte Beispiel kann mit der Dreisatzrechnung 
folgendermaßen gelöst werden (und zeichnet uns so den 
Lösungsweg vor) : 


Nettobetrag 188 % entsprechen 459.- DM 
Steuerbetrag 14 % entsprechen x DM 


456 * 14 
183 


Damit wird der Lösungsweg deutlich : Wir müssen in ein 

allgemein gehaltenes Programm den Nettobetrag eingeben 

und dazu den Steuersatz (oder allgemein gesprochen, den 
Prozentsatz, der beliebig sein kann, wenn das Programm 

generell einsetzbar sein soll). 
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(5) SCHRITT Flußdiagramm 


Berechne 
Steuerbe- 
trag SB 


Berechne 
Bruttobe- 
trag BB 


Ausgabe 
Ergebnisse| 


Voß 
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10 
20 
20 
40 
en 
PRı 
[-10] 
70 
80 
90 
95 
100 
110 
120 
130 


(4) schritt ı Programm 


REM Mö-FROZENT 

CLS 

FRINT"FROGRAMM ZUR BESTIMMUNG VON FROZENTWER-" 
FRINT TAB(18) "TEN." 

KRINT:PRINT:PRINT TAB(P) "FROF.DR.W.VOSS, 1984": 


INFUT "NETTOBETRAG : ":NB 

FRINT: INFUT "FROZENTSATZ ı "3,55 

SE=NB#SS/ 100 

BB=NB+SB 

FRINT:FRINT 

FRINT:FRINT:FRINT"NETTOBETRAG = ";NB 
FRINT:FRINT"FROZENTBETRAG : ";SB 
FRINT:FRINT"BERUTTOBETRAG : ";BRBR 

FRINT:FRINT"ENDE":END 


(65) SCHRITT ı Variablenliste 


Bruttobetrag 
Nettobetrag 
Prozentbetrag 


Prozentsatz 
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SCHRITT Programmbeschreibung 


Überschrift. 
Eingabe von Nettobetrag und Prozentsatz. 


Berechnung von Prozentbetrag und Brutto- 
betrag. 


95 : Zwei Leerzeilen. 


188-128 : Ausgabe der Ergebnisse auf dem Bild- 
schirm. 


Ende des Programms. 


(7) SCHRITT H Ergebnisse 


Gibt man beispielsweise als Nettobetrag 2d6 und als Pro- 
zentsatz den Wert 15 ein, so meldet das Programm : 


NETTOBETRAG 
PROZENTBETRAG : 
BRUTTOBETRAG 
ENDE 
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2 8 Würfel 


(1) SCHRITT Vorstellung des 
" Problems 


Es soll ein Programm vorgestellt werden, 
welches 188 mal "würfelt" und den Durchschnitt 


dieser Augenzahlen ausgibt. 


Man kann sich zu diesem Zweck der Funktion RND 
(RND = random = Zufall) bedienen, die Zufallszah- 


len zwischen ® bis unter 1 erzeugt. 


Zufallszahlen nennt man solche Zahlen, die in un- 


regelmäßiger und unsystematischer Folge auftreten. 


Kapitel 2 : Mathematik 


Abschnitt 8 würfel 


(2) schritt ı  Problemanalyse 


Beim SCHNEIDER CPC 464 kann die Funktion RND ohne 
Argument benutzt werden. 
Der Leser sollte diese Funktion einfach einmal er- 


proben, indem er beispielsweise eingibt: 
PRINT RND 
und noch einmal: 


PRINT RND 
oder noch besser: 
FOR I = 1 TO 18 : PRINT RND : NEXT 
und danach die ENTER-Taste. 
Auf dem Bildschirm erscheinen Zufallszahlen, die 


alle zwischen % bis unter 1 liegen. 


Wir hätten nun aber gern als Ergebnisse 18$ ganz- 
zahlige Werte zwischen 1 und 6 - eben Würfel-Augen- 
zahlen. 
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Das folgende Schema verdeutlicht, wie man aus Zu- 
fallszahlen aus dem Wertebereich zwischen $& bis 
unter 1 ganze Zahlen zwischen 1 und 6 erzeugen 


kann: 


Verarbeitung Ergebnis 
RND-Funktion zwischen % bis 
unter 1 


zwischen 8 bis 
unter 6 


zwischen 1 bis 
unter 7 


 INT-Funktion ganzzahlig zwi- 


| schen 1 bis 6 ! 


Damit ist der Problemlösungsweg vorgezeichnet. 
Da schließlich noch der Durchschnitt gewünscht 


wird, sind alle Ergebnisse aufzuaddieren und die 


entstehende Summe äurch 188 zu teilen. 
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Erzeuge 
I-te 
Zufalls- 
zahl X 


Ausgabe 
von X 
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() SCHRITT H Programm 


REM M7-WUERFEIL. 
CL.S 
FRINT"FROGRAMM ZUR ERZEUGUNG VON 100 WUERFEL." 
FRINT"WUERFEN UND DER DURCHSCHNITTLICHEN AU-" 
FRINT TAB(16) "GENZAHL. " 
FRINT:FRINT:PRINT 
FRINT TAB(9)"FROF.DR.W.VOSS. 1984": FRINT 
I=1 
X=RND 
X=X*6:X=X+1:2X=INT(X) 
FRINT X; 
S=S+X 
I=I+1 
IF 12101 THEN 90 
AM=S/100 
FRINT:FRINT:FRINT 
FRINT:FRINT"MITTELWERT = ";AM 
FRINT:FRINT"ENDE DER AUSGABE": END 


(5.) schritt Variablenliste 


Mittelwert 
Laufindex (Rundenzähler) 
Summe aller Würfelergebnisse 


Zufallsergebnis 
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(6) schritt R Programmbeschreibung 


Überschrift 
Vorgabe des Rundenzählers 


Erzeugung einer Zufallszahl 
und Transformierung in einen 
ganzzahligen Wert zwischen 

1 und 6 


118 : Ausgabe 


128 Erhöhung der Summe S um das 
würfelergebnis" X 


138 : Erhöhung des Rundenzählers I 


um 1 


148 : Solange I kleiner als 191 ist, 
geht es zurück zu Satz 98 


158-178 Berechnung des Mittelwerts 
und Ausgabe 


188 : Beendigung des Programms 


Kapitel 2 Mathematik 
Abschnitt 8 würfel 


(7) SCHRITT Ergebnisse 


Wenn wir dieses Programm starten, so erzeugt der 
Rechner nach der üblichen Überschrift 188 zufällige 
Würfelergebnisse und gibt diese zeilenweise aus 

(der Leser überlege, warum eine zeilenweise Ausgabe 
erfolgt). 

Danach wird der Durchschnitt aus den 18% Ergebnissen 
berechnet und ausgegeben, der - wenn der Zufalls- 
zahlengenerator in Ordnung ist - in der Nähe von 3.5 
liegen muß. 


Da die Ergebnisse zufallsabhängig sind, können sie 


sinnvollerweise hier nicht dargestellt werden. 
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29 Probleme der Rechengenauigkeit 


Ein Computer wie der SCHNEIDER CPC 464 reser- 
viert für jede reelle Zahl, mit der gerechnet wird, 
nur eine bestimmte Zahl von Bytes, Dies bedeutet, daß 


er nur mit beschränkter Genauigkeit arbeiten kann. 


Man sieht dies sehr deutlich, wenn man in dem folgen- 
den Programm "große" Werte vorgibt, und diese sich 


wieder ausdrucken läßt : 


18 REM ZAHLENGENAUIGKEIT 
2% A=12345678 
B=123456789 
c=1234567891 
D=12345678912 
?A:?B:?C:?D 
END 


Als Ergebnisse erhalten wir : 


12345678 
123456789 
1.234567E+@9 
1.234567E+19 


Bekommt der Rechner also Zahlen mit mehr als 9 Ziffern 
(Beispiel C und D), dann wandelt er sie bei der Ausgabe 
in die sog. Exponentialdarstellung um und druckt z.B. 
für C : 
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1.2345672+89 


Dies ist zu lesen als 


1.234567 * 18? = 1.234567 “1 BED Bo Be 


Dieses Produkt wiederum ergibt : 


1 234 567 gd8 


Der Rechner hat also beim Wert für C die letzten 
Stellen "unterschlagen"; er kann sie nicht mehr 


berücksichtigen. 


Allerdings wird, wie man an entsprechenden Beispie- 


len zeigen kann, bei diesem "Unterschlagen" nicht einfach 
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nur "abgeschnitten", sondern korrekt gerundet. 


Das Hauptproblem dabei ist nun folgendes 


Wenn wir beispielsweise zum Wert D in obigem Programm 


den Wert 1 addieren, etwa in der neuen Programmzeile 55: 


und auch diesen Wert E ausdrucken lassen 


so erkennen wir keinen Unterschied in den Werten für D 


und E - der Rechner rechnet falsch ! 


Auf dieses Problem muß man also immer dann achten, 
wenn man z.B. sehr große mit sehr kleinen Zahlen (und 


umgekehrt) verrechnen will. 
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Kapitel 3 : Chemie 


2 1 Zusätzliche BASIC-Anweisungen 
[I 


Will man Programme aus dem Bereich der Chemie 
programmieren, so kann man hervorragend die Graphik- 
und Farbmöglichkeiten des SCHNEIDER CPC 464 ausnutzen - 
etwa zur graphischen Darstellung von Molekülen oder von 
chemischen Verbindungen. 


Beispielsweise kann man das Wassermolekül 


das ja bekanntlich aus zwei Wasserstoffatomen (H) und 
einem Sauerstoffatom (0) zusammengesetzt ist, anschau- 
lich folgendermaßen darstellen 
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Um solche Darstellungen erzeugen zu können, benötigt 
man zusätzliche Anweisungen. Diese beziehen sich zum 
einen auf die Farberzeugung und den Farbenwechsel in- 
nerhalb eines laufenden Programms und zum anderen auf 
die Verwendung spezieller Symbole (auf die Möglich- 
keiten der sog. hochauflösenden Graphik kommen wir 


erst in einem späteren Kapitel zu sprechen). 


Zur Anfertigung solcher und ähnlicher Zeichnungen eig- 


net sich hervorragend der Graphikzeichen-Vorrat des 
SCHNEIDER CPC 464 (siehe Bedienungshandbuch). 


Diese Zeichen, die unter den ASCII-Codezahlen 126 ff 
zu finden sind (dabei sind auch noch einige spezielle 
Sonderzeichen und z.B. ein paar griechische Buchstaben) 


sind aufrufbar mit der früher kurz erwähnten Funktion 
CHR8 (Argument) 


Das Argument dieser Funktion ist die ASCII-Codezahl 
des gewünschten Symbols. 
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Gibt der Benutzer zum Beispiel ein: 


PRINT CHR8(231) 
so erscheint auf dem Bildschirm ein Symbol, das einem 


Kügelchen ähnelt. 


In diesem Zusammenhang einige Hinweise zur Farbgestal- 


tung für die Glücklichen, die einen Farbfernseher an- 


geschlossen haben (es sei darauf hingewiesen, daß die- 


jenigen der folgenden Programme, die mit Farbeffekten 
arbeiten, auch bei angeschlossenen Schwarz-Weiß-Geräten 
funktionieren - unterschiedliche Farben stellen sich 
dann als unterschiedliche Grüntöne bzw. Schraffuren 


dar). 


Wenn der SCHNEIDER CPC 464 eingeschaltet wird, befindet 
er sich im sog. Modus 1 (40 Zeichen pro Zeile) und bei 
angeschlossenem Farbmonitor werden die Ausgaben gelb 
auf dunkelblau dargestellt. 


Die Ausgabefarben können mit folgender Anweisung geän- 


dert werden: 


Statement 12: 
nn PEN 


Im Modus 1 sind mit dieser Anweisung vier unterschied- 


liche Farben gemäß der folgenden Angaben darstellbar: 


gelb 
hellblau 
rot 
blau 
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Die letzte Farbe führt allerdings zu Ausgaben, die 


auf dem blauen Hintergrund nicht sichtbar werden. 


Mit dem folgenden Programm können drei verschiedenfar- 


bige Kügelchen untereinander ausgegeben werden: 


FOR I=1 TO 

FEN 1 

FRINT I„CHRE (231) 
NEXT I 

END 


Hinweis: 


Wenn beim Farbexperimentieren (oder auf andere Weise) 
der Benutzer in eine "Sackgasse" gerät, in der "nichts 
mehr geht", so kann er den Rechner in den Grundzustand 


versetzen durch gleichzeitiges Drücken der Tasten 


Allerdings geht dann ein gerade im Rechner befindliches 


Programm verloren. 


Weiterhin benötigen wir in diesem Kapitel und in den 
meisten der folgenden auch einige Anweisungen, die es 
uns erlauben, größere Informationsmengen geschickter 
als dies per LET- oder INPUT-Statement möglich wäre, in 


den Rechner zu bekommen. 


Dazu eignet sich besonders gut das DATA-Statement in 
Verbindung mit dem READ-Statement. 


voß Kapitel 


Abschnitt 
Schule 


Statement 13: 


nn DATA Wert1,Wert2,Wert3,... 


Statement 14: 


nn READ Variaple1,Variable2,Variable3,... 


Beispiel : 


REM DATENEINGABE 

DATA 468@,DORTMUND, 463%, BOCHUM, 8d4® 
DATA MUENCHEN, 2%9@ , HAMBURG 

READ P1,018,P2,028,P3,03$%,P4,04$ 
?P1,018:?P2,028:?P3,038:?P4,04% 

END 


Der Leser erprobe dieses Programm. 


Bei großen Datenbeständen empfiehlt es sich, nur einen 
Variablennamen zu verwenden, der dann aber mehrere Wer- 
te erfaßt. Dies gelingt durch Verwendung indizierter 
Variablen, wie man sie ja zum Beispiel aus der Mathema- 
tik kennt. Üblicherweise schreibt man in der Mathema- 
tik 
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allgemein 


Dies geht auch in entsprechender Weise in der Program- 
miersprache BASIC : 


x(1), X(2), X(3), ...allgemein X(I) 


(generell : 


Variablenname (Indexname) ) 


Bei Verwendung solcher indizierten Variablen muß aber 
dem Rechner zu Beginn des entsprechenden Programms 
mitgeteilt werden, wieviele Speicherplätze für die je- 


weilige Variable freigehalten werden müssen. 
Dies leistet das DIM-Statement : 
Statement 15: 

nn DIM Var.namei(Zahl1),Var.name2(Zahl2), ... 


Beispielsweise hält das Statement 


18 DIM X(29) 


für die Variable X 21 Speicherplätze frei. 
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Es handelt sich dabei um die Plätze X(8), X(1), X(2), 
X(3), 2... , X(29). 


Ergänzend ist darauf hinzuweisen, daß zum Beispiel 


auch doppelte Inäizierungen möglich sind : 
Das Statement 
18 DIM 2(2,3) 
hält für die Variable 2 3*4 = 12 Plätze frei, die man 


sich in ürei Zeilen und vier Spalten aufgeteilt vor- 
stellen kann 


Erna 


Die allgemeine Schreibweise lautet in diesem Fall 
Z(I,J) 


Der erste Index (hier I) ist der sog. Zeilenindex, der 


zweite (hier J) der Spaltenindex. 


Zum Abschluß muß erwähnt werden, daß mit den READ-Sta- 
tements eines Programms immer in Abfolge auf die vor- 
handenen DATA-Statements zugegriffen wira. Dies be- 
deutet, daß ein zweites READ-Statement dort in den 


vorhandenen DATA-Statements fortfährt zu lesen, wo 
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das vorangegangene READ-Statement aufgehört hat. 


Häufig ist es nun allerdings sinnvoll, daß mit einem 
zweiten (oder sonst folgenden) READ-Statement die DATA- 
Liste wieder von Anfang an gelesen wird. 


Um dies zu ermöglichen, benötigt man ein weiteres Sta- 
tement 


Statement 16: 


nn RESTORE 


Dieses Statement bewirkt, daß der "Lesezeiger" wieder 
an den Anfang des ersten DATA-Statements gestellt wird, 
so daß die Daten mit dem folgenden READ-Statement wie- 
der von Anfang an gelesen werden. 
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3 2 Das Wassermolekül 
® nes. 


(1) SCHRITT Vorstellung des 
Problems 


Es soll mit Hilfe eines BASIC-Programms ein 
graphisches Abbild des Wassermoleküls (H,0) erzeugt 
weruen (siehe auch Abschnitt 3.1). Die Wasserstoff- 
atome sollen z.B. als gelbe Kügelchen, das Sauerstoff- 


atom als rotes Kügelchen präsentiert werden, 


Mit einem derartigen Programm hätte man dann einen 
Grundbaustein auch für komplexere Programme graphi- 


scher Darstellungen dieser Art zur Verfügung. 


(2)) schritt ; Problemanalyse 


Wenn man das Bild, welches durch das Programm entstehen 
soll, schon vor Augen hat, dann ist in diesem Beispiel 


die Problemanalyse sehr einfach : 


Es soll genau das Bild erzeugt werden, das wir schon 


zu Beginn des Abschnitts 3.1 gezeichnet haben. 


Wir erkennen, daß dieses Bild sich aus vier Zeilen auf- 
baut : 
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Ein gelbes Kügelchen und ein Schräg- 
strich von links oben nach rechts 


unten. 


Ein rotes Kügelchen (nach rechts ver- 
setzt). 


Ein gelbes Kügelchen unter dem der er- 


sten Zeile und ein Schrägstrich von 


links unten nach rechts oben. 


4. Zeile Text : H2-0 . 


Das Kügelchen erzeugen wir, wie schon zuvor, mit dem 
ASCII-Codezeichen mit der Nummer 231 (mit Hilfe der 
CHR$3-Funktion). 


Entsprechend hat der Schrägstrich von links oben nach 
rechts unten (\) die Codezahl 2985 und der umgekehrte 
Schrägstrich (7) die Codezahl 284 (zu entnehmen dem 
Anhang III der englischen Version des Betriebshandbuchs). 
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"Kügelchen, 
Schräg- 
strich 
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@) SCHRITT : Programm 


10 REM Ci-H20 

20 CLS 

30 FRINT"FROGRAMM ZUR GRAFHISCHEN DARSTELLUNG" 

40 FRINT" DES WASSERMOLEKUELS H2-0" 
SERERFNT=FRINTS PRINT TARB(10) "FROF.DR.W.VOSS, 1984" 


60 FRINT:FRINT:FRINT 

70 FEN 1:FRINT TAB(10)CHR$ (231); 
80 FRINT TAB(12)CHR#$ (205) 

90 FEN 3:FRINT TAB(14)CHRE (231) 
100 FEN 1:FRINT TAB(10)CHR&$ (231); 
110 FRINT TAB(12) CHR# (204) 

130 FRINT:FRINT TAB(10)"H2 -0" 
140 FRINT:FRINT:FRINT"ENDE":END 


(5) schritt ‘ Variablenliste 


In diesem Progranm werden keine Variablen benutzt. 
halb entfällt hier dieser Arbeitsschritt. 
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SCHRITT Programmbeschreibung 


Überschrift 

Umschalten auf Gelb und Ausgabe eines 
Kügelchens in Spalte 19; Unterdrückung 
des Zeilenvorschubs 


Ausgabe eines Schrägstrichs in Spalte 12 


Umschalten auf Rot und Ausgabe eines 


Kügelchens in Spalte 14 
Umschalten auf Gelb und Ausgabe eines 
Kügelchens in Spalte 19; Unterdrückung 


des Zeilenvorschubs 


Ausgabe eines Schrägstrichs in Spalte 12 


Ausgabe von H2- O ab Spalte 18 nach 


zwei Leerzeilen 


Ende des Programms 
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(7) SCHRITT H Ergebnisse 


Die Bildschirmausgabe dieses Programms entspricht dem 
Bild, das wir in Abschnitt 3.1 schon vorgestellt haben. 


Eine weitere Präsentation ist deshalb hier entbehrlich. 
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33 Reaktionsgleichung 


® SCHRITT Vorstellung des 
Problems 


Auch chemische Reaktionen lassen sich anschau- 
lich graphisch darstellen, wie am Beispiel der für die 


Stahlerzeugung notwendigen Prozesse gezeigt werden kann. 


Die Stahlerzeugung in den industrialisierten Ländern 
beginnt damit, daß im Hochofen zunächst Roheisen pro- 
duziert wird. Diese Produktion geht in folgenden Schrit- 


ten vor sich 


1. Schritt : Erhitzte Luft wird mit Koks zu Kohlen- 


monoxid verbrannt : 


—> 2 0 


Koks Sauer- Kohlen- 
stoff monoxid 
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2. Schritt : Das heiße Kohlenmonoxid (CO) 
steigt im Hochofen auf und rea- 
giert dort mit Eisenoxid 


(Fe,0,) 


3c0O —> 2Fe + 


Eisen- Kohlen- Eisen Kohlen- 
oxid monoxid dioxid 


Damit steht dann Roheisen für die weitere Verwendung 


zur Verfügung. 


Es soll nun ein BASIC-Programm vorgestellt werden, wel- 
ches diese chemischen Reaktionsbeziehungen veranschau- 
licht, 


Bei der Darstellung der Atome undder Moleküle bedienen 
wir uns der gleichen graphischen Möglichkeiten wie im 


Beispiel zuvor. 


©) SCHRITT ı  Problemanalyse 


Mit der obigen Beschreibung und unter Rückgriff auf die 
Überlegungen im vorangegangenen Beispiel ist im Grunde 
die Problemanalyse schon geleistet, so daß weitere Aus- 


führungen an dieser Stelle entbehrlich sind. 
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G) SCHRITT ‘ Flußdiagramm 


Auch das Flußdiagramm ist hier nicht mehr erforderlich, 


wobei die gleichen Gründe maßgeblich sind wie im Schritt 
zuvor. 


&) SCHRITT Programm 


REM CZ-CHEM. REAKTION 

CLS 

FRINT"FROGRAMM ZUR DARSTELLUNG EINER CHEMI-" 
FRINT TAB(13)"SCHEN REAKTION." 


SERININT FRINT:FRINT TAB(10) "FROF.DR.W. VOSS. 1984" 


&0 FRINT:FRINT:FRINT 
70 FEN 1:FRINT TAB(IOJICHRE(ZI1D: 
75 FRINT TAB(ZSICHRE(ZI1)::FEN ZePRINT CHR$ (231) 


80_FRINTZFRINI_TAB(1DD"+ "3:FEN ZEFRINT CHR& (231) 
TE FRINT ECHR& (221); 


85 FRINT" = N 
86 FRINT 
90 FEN 1:FRINT TABtIOICHRE (ZEN): 
100 FRINT TAB(ZSICHRE(ZELIS:PEN Z:FRINT CHR& (2210 
110 FRINT:FRINT 
120 FEN 1:FRINT TAB(1C0) "EC + 0 2c0" 
130 PRINT TAB(16)"2" 
ee FRINT:FRINT:FRINT:FRINT"BITTE COUNT EINGEBEN":S 
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150 CLS 
150 PEN 2:FRINT TAB (33) CHR#$ (231) 
129, FEN 1:PRINT TAB(18)CHRE$ (231); :PEN 2:FRINT 


180 PEN 1:PRINT TAB (32) CHR$ (231) 
ZROCHEN BEERENDENAB ORT AHRFARTRRG EBEN GRTTINT TaBı 


2 PRINT TAB(1O)CHR$(231)5: PEN Z:PRINT TABC 
SS9CcHRN 3487 e 


210 PRINT TAB(12)ICHR$ (231); :FRINT TAB(15) "+"; 
229 ERINT TABCLBICHRE (231) 5: PEN 2:PFRINT TAB 
SCHE 355 2 


oo HAERINT-IRE 2: 3] )="5: PRINT TAB(29) "+"j: PEN 
S3ychka 3417 
SUSE N EB RLRURFABTIZFEREN ZHT INT TAB (26) CHR 


O_FEN ‚A5FRINT TAB(18I)CHR$ (231);5: FEN 2: FRINT TAB( 
SchEs As 5 


FRINT TAB(1Ö)CHRE (231); :PEN Z:FRINT TAB( 


270 PEN 1:PRINT TAR(3Z2) CHR$ (231) 

280 FEN 2:FRINT TAB(33)CHR#E (231) 

290 PRINT:FRINT 

300 PEN 1:PRINT TAB(8)"FE O + 3560 = ZFE + C0" 
310 FRINT TAB(10)"2 3 en 

320 PRINT:FRINT"ENDE DER AUSGABE" :END 
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(5) somırt B Variablenliste 


Es werden keine Variablen benutzt. 


(6.) schritt Programmbeschreibung 


Überschrift 


Ausgabe eines gelben Kügelchens 
in Spalte 19 


Ausgabe eines gelben Kügelchens 
in Spalte 25 und daneben eines 


blauen Kügelchens 


Ausgabe eines +-Zeichens in Spalte 
12 und daneben zweier blauer Kügel- 


chen 


: Ausgabe eines =-Zeichens in der 


gleichen Zeile 
Satz 86 Leerzeile 
Satz 98 wie Satz 79% 
Satz 188 wie Satz 75 
Satz 118-138 Ausgabe der Reaktionsgleichung 


Satz 149-158 Abwarten und Räumen des Bildschirms 
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Satz 169-289 : Ausgabe des graphischen Abbilds 


der zweiten Reaktionsgleichung 


298-318 : Ausgabe der jeweiligen Reaktions- 


gleichung 


Ende des Programms 
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(7) SCHRITT \ Ergebnisse 


Das vorgestellte Programm erzeugt nacheinander zwei gra- 


phische Bilder auf dem Bildschirm; das zweite Bild er- 


scheint, wenn der Programmbenutzer das Kommando CONT 


eingegeben hat. 


Es aürfte entbehrlich sein, diese beiden Bilder hier 
vorzustellen, insbesondere auch deshalb, weil hier 
keine farbliche Darstellung möglich ist. Sinnvoller 
ist es deshalb, dieses Programm direkt an einem Farb- 
fernseher zu erproben. 


Kapitel 3 ; Chemie 
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6 I, Stöchiometrisches Rechnen 
> En 


(D SCHRITT Vorstellung des 


Problems 


Beim stöchiometrischen Rechnen geht es darum, die Stoff- 
mengen zu quantifizieren, die bei chemischen Reaktionen 
umgesetzt werden. Es könnte damit also zum Beispiel die 
folgende Frage beantwortet werden 


Wieviel Gramm Schwefel sind notwendig, um 18% Gramm 
Zink vollständig zu Zinksulfid umzusetzen ? (Schwefel 
= S; Zink = Zn; Zinksulfid = ZnS) 


Atomgewicht von Schwefel : 32.1 
Atomgewicht von Zink ı 65.4 
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(2) SCHRITT ı  Problemanalyse 


Zur Lösung des gestellten Problems ist von der zustän- 
digen Reaktionsbeziehung auszugehen : 


Wenn wir die sog. Molmassen des gesuchten und des gege- 


benen Stoffs aufeinander beziehen, erhalten wir 


32.1 g Schwefel sind notwendig, um 65.4 g 


Zink umzusetzen (s.o.). 


Nun gilt offenbar 


x/1dd = 32.1/65.4 


3218/65.4 


Dabei ist x der gesuchte Wert. 
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G) SCHRITT \ Flußdiagramm 


Das Flußdiagramm ist bei dieser Fragestellung wieder 


sehr einfach : 


Molmassen 
eingeben; 
S und ZN 


Berechne: 
X=S*198/ZN 


Ausgabe 
von X 
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(4) schritt : Programm 


10 REM C3-CHEM. RECHNEN 

20 CLS 

30 FRINT"FROGRAMM ZUM STOECHIOMETRISCHEN RECHNEN" 
40 FRINT:FRINT 


ER, BINTSPRINTSPRINT TAR(9)"FROF.DR.W.VOSS, 1984": 


60 FRINT:FRINT:PRINT"BEISFIEL :":FRINT:FRINT 

70 FRINT"ZINK + SCHWEFEL = ZINESULFID :" 
IArFRINTEPRINT" ZN + S = ZN S":FRINT:FR 
78 ERINT:FRINT"WIEVIEL GRAMM SCHWEFEL. SIND NOTWEND 
100 FRINT"UM 100 G ZINk VOLLSTAENDIG ZU ZINKSUL-" 
110 FRINT"FID UMZUSETZEN ?":FRINT:FRINT 

120 INFUT "1. ELEMENT : ";A# 

130 INFUT "2. ELEMENT : ";B# 

140 FRINT:FRINT:FRINT 

0 ERINT"ATOMGEWICHT VON "3A#;:FRINT TAB(Z0)":2"3: 
HÄRUFFA FENER i 
FRB)ERZNT"ATOMGEWICHT VON ":B#;:FRINT TAR(ZO) "2": 
170 X=B*100/A 

!®9, ERINTRRINT:FRENZ REDOETTGTE menge von ";n8; 
190 FRINT=FRINT:FRINT"ENDE DER BERECHNUNG": END 


(5,) scnkirt Variablenliste 


Atomgewicht Stoff A 
Bezeichnung Stoff A 


Atomgewicht Stoff B 
Bezeichnung Stoff B 


Gesuchte Menge 
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SCHRITT :  Programmbeschreibung 


Überschrift und Beispielsangabe mit 
der in diesem Programm zu behandelnden 
Fragestellung 


128-1368 : Eingabe der Namen der beiden Stoffe 

148 : 3 Leerzeilen 

158-168 : Ausgabe der Namen der Stoffe und An- 
forderung der Atomgewichte dieser 
Stoffe 
Berechnung der gesuchten Menge 
Ausgabe des Ergebnisses (zuzüglich eini- 
ger Leerzeilen, auf die aber zukünftig 
nicht immer gesondert aufmerksam ge- 


macht werden soll) 


Ende des Programms 
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(7) SCHRITT ı Ergebnisse 


Nach den erläuternden Erklärungen fordert das Programm 
den Namen des ersten Elements an : 


Geben wir z.B. ein "Schwefel", so fordert das Programm 


den Namen des zweiten Elements, das in die Rechnung 


eingehen soll, an 


Geben wir z.B. ein "Zink", so fordert das Programm die 


Atomgewichte für Schwefel und Zink an. 


Wenn wir daraufhin eingeben die Werte 32.1 und 65.4, 


dann liefert das Programm das folgende Ergebnis : 


BENOETIGTE MENGE VON ZINK : 


283.738318 G 


ENDE DER BERECHNUNG 


Es versteht sich, daß bei anderen chemischen Prozessen 
(z.B. auch dann, wenn mehr als zwei Stoffe an den in 
Frage stehenden Reaktionen beteiligt sind), das obige 
Programm unter Umständen sehr grundlegend verändert 
werden muß. 


Hier kam es nur darauf an, beispielhaft ein derarti- 


ges Programm einmal vorzustellen. 
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35 Das Periodensystem der Elemente 


(3) SCHRITT ı Vorstellung des 
Problems 


Ein Rechner kann nicht nur dafür eingesetzt 
werden, Rechnungen durchzuführen, wie das zum Beispiel 
im vorangegangenen Abschnitt der Fall war, oder an- 
schauliche graphische Abbilder zu erzeugen (wie im Ab- 
schnitt davor), sondern er kann - gerade im schuli- 


schen Bereich - als "Auskunftei" benutzt werden. 


Am Beispiel des Periodensystems der Elemente kann ver- 
deutlicht werden, wie ein solches "Nachschlageprogramm", 
das gewissermaßen auch als Trainingsprogramm verstanden 


werden kann, aussehen könnte. 


Beispielsweise könnte der Rechenbenutzer daran inte- 
ressiert sein, nach Eingabe eines Elementnamens (z.B. 
Schwefel) vom Rechner wesentliche Informationen, über 


dieses chemische Element zu erfahren. 


Solche Informationen sind etwa 
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Chemisches Zeichen, 


Ordungszahl im Periodensystem, 


Atomgewicht, 
Wichte, 
Schmelzpunkt, 
Siedepunkt, 


. 


Gruppenzugehörigkeit (I-VIII,ß), 


Nebengruppenzugehörigkeit (a,b) 
Elektronenschalen (K-Q) 


1. 
2 
3 
4 
5. 
6 
7 
8 
9 


(2)) schritt '  Problemanalyse 


Die Entwicklung eines entsprechenden Computerprogramms, 
das die interessierenden Auskünfte bereitstellen kann, 


bereitet keine besonderen Schwieritgkeiten. 


Über DATA und READ können die Gesamtinformationen einge- 
geben werden. Der Benutzer gibt dann über INPUT an, 

über welches Element er Informationen wünscht und das 
Programm stellt dann den gesamten Datensatz für dieses 


Element zur Verfügung. 


Schließlich kann abgefragt werden, ob für ein weiteres 
chemisches Element diese Informationen gewünscht wer- 


den. 
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(S))schrirt f Flußdiagramm 


Entsprechend einfach wie die Problemanalyse im voran- 


gegangenen Abschnitt ist auch das Flußdiagramm : 


Eingabe 

aller 
Informa- 
tionen 


Welches 
Element ? 


Suchen des 
Elements 

in den Da- 
tensätzen 


Voß 
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10 
20 
50 


40 


PRı 
60 
70 
75 
80 
85 
90 
95 
100 
105 
108 
110 
120 
130 
140 


150 
160 
170 
180 
190 
200 
Z10 
220 
230 
240 
250 
260 
270 
280 
290 
A 

300 
310 


() schritt D Programm 


REM C4-ELEMENTE 

CLS 

FRINT"FROGRAMM ZUR ANGABE WESENTLICHER EIGEN-" 
PRINT TAB(S) "SCHAFTEN CHEMISCHER ELEMENTE." 
ÄRINTEPRINTSPRINT TAB(9) "FROF.DR.W.VOSS, 1984": 


N=52:REM ANZAHL DER AUFGENOMMENEN ELEMENTE 
DIM N#(N,10) 

FOR J=1 TO 7 

FOR I=1 TON 

READ N#(I,J) 

NEXT I 

NEXT J 

FOR I=1 TON 

READ N# (1,8) ,N#(1,9),N#(I,10) 

NEXT I 

FRINT: INPUT "WELCHES ELEMENT (NAME EITTE) ";B# 
FOR I=1 TO N: IF B#=N#(I,1) THEN 160 

NEXT I 

FRINT:FRINT"DIESES ELEMENT IST IM DATENBESTAND 


FRINT"NICHT VORHANDEN. ":GOTO 290 

CLS 

FRINT N$(I,1)3:FRINT TAB(ZDINE(I,2) 
FRINT:FRINT 

FRINT "ORDNUNGSZAHL. ® "3N$&(I,3) 
FRINT"GRUFFE 2 "3N#(I,8) 
FPRINT"NEBENGRUFFE : "3N$(I,9 
FRINT"SCHALE "SN#E(I,10) 
FRINT:FRINT 

FRINT"ATOMGEWICHT "SN#F(I,4) 
FRINT"WICHTE "s:N#(1,5) 
FRINT 

FRINT"SCHMELZFUNKET "ıN#(I,6) 
FRINT"SIEDEFUNET = "3N$(1,7) 
FRINT:FRINT: INFUT"EIN ANDERES ELEMENT (J/N) "3; 


IF At="J" THEN CLS : G0TO 110 
FRINT:FRINT"ENDE IN 310":END 
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495 REM DATEN BEGRIFFE 
Be RÖRRAMAEHMANTENRENTIMON, ‚ARGON,ARSEN , BARIUM,ELEI 


EO.BETOLFEREVERUPBggpYD-HeLmun. aRIorum.son.aom 


AM ATR.KEN NL LENSALOCR „KUPFER ,LITHIUM,, MAGNESIUM ,MANG 


Br ıDBER aD REBEL OSFROR, PLATIN PLUTONSUM JQUE 


549 „RAIA „BAVERSTOFF „SCHWEFEL „SELEN,SILBER,SILTZIUM 


BERSPÄrP, STERNTIHH  ERORT UM, TITAN, URAN VANADTUM, WAS 


570 DATA XENON, ZINE, ZINN 
595 REM - ABEUERZUNGEN 


809 ‚BRTR.R B,AR BAuE FB,B,ER,CL,CR,FE,F,AU,HE,I 
D ö;5C, ed? L 


en DATA ai MO, NRAr NE,NI,F,FT,FU,HG,RA,RN,O,S,SE,AG 
‚„Si,N,$SR, TH, TI, U,Y,H" 


620 DATA BI,W,XE,ZN,SN 
&40 REM DATEN ORDNUNGSZÄHLEN 
659 RATAJ13454,18,35,56, 82,5,35,17,24,26,9,79,2,77 


1923 


R 
ia 


660 DAIA,SE, 
6,34,47,14, 


670 DATA 90,22,92,23,1,83,74,54,30,50 
695 REM DATEN ATOMGEWICHTE 

® 2 39.94,74.91,137.26,207.21,10 
793 BOTO229E 722183: 87° ’ Ast 


42485» 42,11,10,28,15,78,94,80,88,86,8,1 


> DATA 517,19 .003,192.2,126.92,112.41,39 
74900 af oBr58” a4” 147211 i ö : 


2 4 24.32,54.94,95.95,22.991,20.18 
228@091%38.58,1985759°° 9=,94.99,79.79 u 


728 D TBu212:588° 61,226.05,222,16,32.066,78.76,107 
‚- 


182. BeT795 972028238, 07347. 7,258-07,50.95,1.008,209, 


745 REM DATEN WICHTE 


.9,11.35 73,5 
72909122 24? 788; 62079018»5- 72,3.5,11.34,1.7 14,1 


269, ‚DATE, 18: 5342: 09948. 22.42,4.742,8.64,.862,1.545, 
Syn 


954,25 


729 „arTA „6547:807 19 .971,.0009,8.8,1.83,21.4,-, 


s1a12:57 
789 DATds* DR 18: .3,2.34,.00125,2.63,11.7,4.43,19,6 
.07, 3 


13.55, 


790 DATA .0059,7.14,7.28 

795 REM DATEN SCHMELZFUNETE 

SB. AT 5 30,5120,,704,327,2400,-7.3,-100,1800 
309.BATA, 859 4630.5420, 708, , 


1525 D 


819 Bala ‚3859.114,321,64,851,1490,-, 1083, 180,690 ,1 


979 DATA 2840 2021492,44,1771,-,739,700,-71,-218.7, 


3,220, 


BODEN DI GL UBRT TAT IRRE TER ERS E TE 


: Chemie 
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845 REM DATEN SIEDEFUNKT 


SC Ä [1 Sg eh 
32 Bl8o? Er 3495 186,616,1537,1690,2550,58,-34, 


98° ‚Dal? 21a9?ı ERUDET-tai 770,762,1439,3185,-,2360,13 
2,4 


870, Tags? 48150254580 ,3800,-,357,1140,-61.9,-182. 

ago _baza iR 2: 8,4560,3530,-,-,3000,-272.78, 1560,60 

900 REM DATEN KLASSEN 

74°,DPTA, FIAsEM»V»Br0,0,A,M,V,B,N,IT,A,P,IV,B,P,I 

k Di 
720 DRTAA VELJEEMAVEHANN„VILTJA,N,VIT,B,L,T,B,P,O,A 
i DE | yg 

70 „DRTA 1lAsBrdahzä;N TTnA»N„VIIT,A,N,IV,B,L,T,B,N 
‚ hi 

20 DATA, ! Hr AtgsArk»VIIILA,N,V,E,M,VIIL,A, 
W EEE TR 

75, para vi, Fol aVAESMAVESB,N,TIBJO,IV,B,MV,ByL,I 
Aus! 


I60 DATA VAN IJASK,VSB,PAVISA,P,O,A,D,IL,B 
, % 


(5.) schritt ı  Variablenliste 


Antwortstring (Ja/Nein) 
Speicherfeld zur Aufnahme des vom Benutzer ge- 


wünschten Elements 
Laufindex 


Laufindex 
Zahl der Elemente im Datenbestand 


Dateielemente 


SCHRITT Programmbeschreibung 


Satz 19-58 : Überschrift 


Satz 55 : Angabe "Moment bitte", da das Einlesen 
des gesamten Datenvestandes einige Se- 


kunden dauert 


: Angabe der Elementanzahl (es sind in 
"dieses Programm nicht alle chemischen 
Elemente aufgenommen, sondern nur 52 
Stück. Ggf. muß also Satz 68 verändert 
werden, falls die DATA-Statements ver- 


längert werden sollten) 
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12-139 


148-159 


298-386 


Dimensionierung 


Einlesen aller Informationen 


Anforderung des Elements, über das In- 
formationen gewünscht werden 


Aufsuchen des gewünschten Elements im 


Datenbestand, 


wird es gefunden, weiter bei 169; 
wird es hingegen nicht gefunden, weiter 
bei 149 


Ist das gewünschte Element nicht im Da- 
tenbestand vorhanden, so erfolgt ein 
entsprechender Ausdruck; danach Sprung 
zum Satz 299 


Löschen des Bildschirms 


Ausgabe des Elementnamens und des cheni- 


schen Kürzels 


Leerzeile 


Ausgabe der übrigen Informationen für 
das gewünschte Element 


Abfrage, ob eine weitere Auskunft gege- 


ben werden soll, 


wenn ja, Löschen des Bildschirms und 
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Sprung nach 119 


wenn nein, weiter bei 31 


Satz 318 : Beendigung des Programms 


Satz 495-968 : Datenbestand in DATA-Statements 


(7) schritt ' Ergebnisse 


Geben wir z.B. als gewünschtes Element das Element 


Schwefel ein, so antwortet der Rechner 


SCHWEFEL 


ORDNUNGSZAHL 
GRUPPE 
NEBENGRUPPE 
SCHALE 


ATOMGEWICHT 
WICHTE 


SCHMELZPUNKT 
SIEDEPUNKT 


EIN ANDERES ELEMENT (J/N) 
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Kapitel 4 : Physik 


l, 1 Vorbemerkung 


Der Bereich der Schulphysik bietet ähnliche 
Problemstellungen, wie wir sie auch schon teilweise im 
Bereich der Mathematik vorgefunden haben (siehe Kapi- 
tel 2). Allerdings kommen hier nun häufig einige Beson- 
derheiten hinzu, die es nahelegen, wieder von den Gra- 


phikmöglichkeiten des Rechners Gebrauch zu machen. 


Deshalb soll - über das hinaus, was im vorangegange- 

nen Kapitel schon über die Methoden der Farb- und Gra- 
phikprogrammierung gesagt wurde - in diesem einleiten- 
den Abschnitt noch einmal auf die Graphik-BASIC-Anwei- 


sungen etwas näher eingegangen werden. 


Kapitel 4 : Physik 
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L 2 Graphik-Programmierung 


Verwendet man den SCHNEIDER CPC 464 zur 
Erstellung von Graphiken, so steht die sog. hochauf- 


lösende Graphik im Mittelpunkt des Interesses. 


Je nachdem, in welchem Bildschirmmodus der Rechner 
arbeitet, steht ein unterschiedlich hohes Auflö- 
sungsvermögen (und - wie schon erwähnt wurde - un- 


terschiedlich breite Farbpaletten) zur Verfügung. 


Mit dem folgenden Kommando wird der Bildschirmmodus 


festgelegt: 


Kommando 3: 


MODE Zahl | 


An der Stelle "Zahl" kann dabei eine Null, Eins 


oder Zwei stehen. 


Diese Zahlenangaben haben die folgende Bedeutung: 
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Nach dem Einschalten befindet sich der Rechner per 
Voreinstellung im Modus 1, stellt also 48 Zeichen 


pro Bildschirmzeile zur Verfügung. 


Generell bietet er für die hochauflösende Graphik 
ein Auflösungsvermögen von 648 % 498 Punkten 
(648 Spalten und 48% Zeilen). 


Dieses Auflösungsvermögen macht es möglich, relativ 
feine Linienzüge auf dem Bildschirm zu erzeugen, wenn 


man die dafür notwendigen Anweisungen kennt. 


Die wichtigsten dieser Anweisungen sollen im folgen- 
den kurz besprochen werden und an einer Reihe ein- 


facher und überschaubarer Beispiele erprobt werden. 
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Wenn man hochauflösende Graphiken anfertigt, ist es 
sinnvoll, sich vorzustellen, daß auf dem Bildschirm 
sich nun ein (nicht sichtbarer) Graphik-Cursor bewegt, 
dessen Position angibt, an welcher Stelle gerade ge- 
zeichnet werden kann. 


Wir sagten schon, daß man sich im Graphikmodus den 
Bildschirm gemäß der folgenden Skizze aufgeteilt den- 
ken muß: 


639 


Besonders wichtig ist in diesem Zusammenhang, daß die 
Zeile & die unterste Zeile, die Spalte & die am wei- 


testen links befindliche Spalte des Bildschirms ist. 


Somit befindet sich der Koordinatenpunkt (9,8), also 


der Ursprung eines Achsenkreuzes, das man sich denken 


kann, links unten - so wie man es beispielsweise aus 


der Schulmathematik auch gewohnt ist. 
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will man nun auf dem Bildschirm einen Punkt zeichnen, 


so dient dazu die folgende Anweisung: 


Statement 17: 


PLOT S,2Z 


Dabei steht S für die Spalte ($-639) und Z für die 


Zeile (8-399), in die gezeichnet werden soll. 


Der Leser erprobe das folgende Programm: 


CLS 
PLOT 328,298 
END 


Das Ergebnis ist ein kleiner Punkt auf der Mitte des 


Bildschirms. 


Entsprechend einfach ist das Ziehen von geraden Li- 


nien mit dem folgenden Statement: 


Statement 18: 


DRAW S,Z 
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l; P 3 BASIC-Programme 


50 zieht beispielsweise das Statement 


DRAW 199,188 


einen geraden Strich von der jeweiligen Position 
des Graphik-Cursors ausgehend bis zum Koordinaten- 


punkt (198,198). 


Wenn der Graphik-Cursor durch ein vorhergehendes 
PLOT- oder DRAW-Statement nicht bewegt wurde, wird 
dieser Strich von (9,%) nach (189,18) gezogen, also 
von links unten ca. 18 cm schräg aufwärts. 


Nehmen wir an, wir wollen in die Mitte des Bild- 
schirms einen senkrechten Strich ziehen. 


Dazu benötigen wir das folgende Programm: 


10 CLS 

20 FLOT 320,0 
30 DRAW 320,399 
40 END 
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Entsprechend sieht ein Programm für einen waagrech- 
ten Strich in der Mitte des Bildschirms folgender- 
maßen aus: 


10 CLS 

20 FLOT 0,200 
30 DRAW 639.200 
40 END 


Entsprechend einfach ist es, beispielsweise ein Ach- 


senkreuz zu zeichnen, wie das folgende Programm illu- 


striert: 


cLS 

FLOT 0,0 
DRAW 400,0 
FLOT 0,0 
DRAW 0,250 
END 
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Sehr leicht ist es bei diesem Rechner - im Gegen- 
satz zu vielen anderen - in eine graphische Dar- 


stellung Texte einzufügen. 


Natürlich können auch Graphiken unter Benutzung spe- 
zieller Sonderzeichen erzeugt werden, die der ASCII- 
Code für den SCHNEIDER CPC 464 bereitstellt. 


Sie finden sich im Bereich der Codeziffern 123 bis 255 


und können aufgerufen werden durch die Anweisung 


PRINT CHR® (Zahl) 


für Zahl = 123 bis 255 


Der Leser erprobe das folgende Programm, welches alle 
Sonderzeichen auf dem Bildschirm ausgibt. Es bleibt 
allerdings nach je 15 Zeichen stehen, damit der Benutzer 
sich diese Symbole in Ruhe anschauen kann und muß dann 


durch Eintippen des Kommandos 


CONT 


wieder in Gang gesetzt werden. 


CLS 

FRINT"NR. SYMBOL": FRINT 
PRINT 

FOR I= 123 TO 255 

FRINT 135" "SCHR& (I) 

IF 1/15=INT (1/15) THEN STOF 
NEXT I 

END 


Voß Kapitel 4 


Abschnitt 3 
Schule 


Allerdings kann auch mit den Sonderzeichen "gezeich- 
net" werden, die über die CHR8-Funktion bereitge- 


stellt werden können. 


Beispielsweise finden wir unter der Codezahl 124 


einen senkrechten Strich von ca. 5 mm Länge. 


Wenn wir nun programmieren: 


CLS 

FRINT:FRINT:FRINT 

FOR I=1 TO 10 

PRINT TAB(IO)CHRE (124) 
NEXT I 


END 


so erhalten wir einen über 18 Zeilen reichenden 
senkrechten Strich in Spalte 1% des Bildschirms, 
wobei dieser sich dabei wieder im Normalgraphikmo- 
dus befindet, also 4% Spalten zu je 25 Zeilen auf- 


weist. 


Entsprechend kann auch mit allen anderen Symbolen 


unter Benutzung der Funktion CHR umgegangen werden. 


Voß Kapitel 4 


Abschnitt 3 
Schule 


Mit diesen Symbolen kann auch gezeichnet werden, 
wobei aber im Modus 1 auf dem Bildschirm nur 49 
Spalten und 25 Zeilen zur Verfügung stehen. 


Es handelt sich also nicht um eine hochauflösende 
Graphik, wie das folgende Beispiel zeigt: 


ELS 

FRINT:FRINT=:PRINT:FRINT 

FOR I=1 TO 10 

FRINT CHR# (143) 

NEXT I 

FOR I=1 TO 20 

FRINT CHR# (143); 

NEXT I 
FRINT=FRINT:FRINT"ENDE":END 


Dieses Programm erzeugt schematisch das folgende 


Bild: 


VRGIOLLLZGIUTDLDL GH 


Kapitel 4 
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Natürlich kann man bei derartigen Graphiken die 
Farbe wechseln. 
Wenn wir z.B. in das obige Programm die Sätze 


15 PEN 2 


85 PEN 1 


einfügen, dann wird das dicke Achsenkreuz in himmel- 


blau und der Schlußausdruck "ENDE" wieder in gelb 


ausgegeben. 


Bei der Durchsicht des vorangegangenen Programms wird 
der Leser bemerkt haben, daß die Verschiebung des Bal- 
kenkreuzes nach unten dadurch erreicht wurde, daß das 
Programm mit einer Reihe von PRINT-Statements einge- 


leitet wurde, um Leerzeilen zu erzeugen. 
Derartige Verschiebungen bzw. Plazierungen an beliebi- 


ger Stelle des Biläschirms können einfacher mit dem 


folgenden Statement erreicht werden: 


Statement 19: 


nn LOCATE S,Z 


Kapitel 
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Dieses Statement rückt den Cursor an die Bildschirm- 
stelle, die durch Spalte S (1-48) und Zeile Z 


(1-25) gekennzeichnet wird. 


Wollen wir beispielsweise das Wort "AHA" in die Mitte 
des Bildschirms schreiben, so gelingt dies mit fol- 
gendem Programm: 


10 EL5S 

20 LOCATE 19,12 
30 FRINT"AHA" 
40 END 


Mit diesem LOCATE-Statement ist man nun auch in der 
Lage, in sehr einfacher Weise Graphiken mit Texten 


zu mischen, was bei anderen Rechnern - zumindest bei 


der hochauflösenden Graphik - häufig mit großen Pro- 


blemen verbunden ist. 


Beispielsweise will man die Achsen eines Koordinaten- 
systems mit den Bezeichnungen "EINKOMMEN" (waagrechte 
Achse) und "ANZAHL" (senkrechte Achse) beschriften. 
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Abschnitt 3 : BASIC 
Schule 


Dies leistet das folgende Programm: 


10 CLS 

20 LOCATE 1,10 

20 FRINT"ANZAHL" 

40 LOCATE 25,22 

50 FRINT"EINKOMMEN" 
60 FLOT 50,50 

70 DRAW 350,50 

80 FLOT 50,50 

90 DRAW 50,220 

100 END 


Es leuchtet ein, daß nach diesem Muster auch entspre- 


chend andere Aufgaben gelöst werden können. 


Nach diesen ausführlichen generellen Anmerkungen zur 


Graphikprogrammierung werden wir uns nun wieder kon- 


kreten Problemstellungen zu. 


Kapitel Physik 
Abschnitt 4 : Federwaage 


l; IA Die Federwaage 
. 


(2) schritt Vorstellung des 
Problems 


Wenn man Werkstücke unterschiedlicher Gewichte 
an eine Federwaage hängt, so wird diese unterschiedlich 
weit ausgedehnt, d.h. sie reagiert in unterschiedlicher 


Weise auf die verschiedenen Gewichtskräfte. 


Es gilt dabei ein Proportionalitätsgesetz, das besagt, 
daß z.B. bei Verdopplung der Gewichtskraft auch die er- 


zielte Verlängerung der Federwaage sich verdoppelt. 


Es gibt also eine sog. Federkonstante, nämlich den Quo- 
tienten aus Gewichtskraft F und Federverlängerung s, 
d.h. es gilt : 


D = F/s = konstant 


Wenn beispielsweise D = 28 ist, heißt dies, daß eine 
Gewichtskraft von 188 (cN) zu einer Federverlängerung 
von 5 cm, eine Gewichtskraft von 288 (cN) zu einer Fe- 


derverlängerung von 18 cm führt etc. 


Voß Kapitel Physik 


Abschnitt Federwaage 
Schule 


(2) schritt \ Problemanalyse 


Der oben geschilderte Zusammenhang läßt sich (z.B. für 


2%) folgendermaßen graphisch darstellen 


Das hier zu entwickelnde BASIC-Programm soll für alter- 
native Werte der Federkonstanten D das entsprechende 
graphische Bild auf dem Bildschirm ausgeben, so daß 
also die folgenden Programmteile erforderlich werden : 


Erzeugung eines Achsenkreuzes, 

Eingabe eines alternativen D-Wertes, 

Ausgabe der Konstanzlinie (siehe obige Abbildung), 
Beantwortung der Frage nach der Ausdehnung der 
Federwaage bei Eingabe einer beliebigen Gewichts- 
kraft. 


Voß Kapitel 4 „ Physik 
Abschnitt 4 ,. Federwaage 


Schule 


(5) SCHRITT : Flußdiagramm 


Ausgabe 
Achsen- 
kre 


Berechnung 
Ausdehnung 


Ausgabe 
Ausdehnung 


Voß Kapitel ® Physik 


Abschnitt Federwaage 


Schule 


(u,)schritt : Programm 


10 REM Fi-FEDERWAAGE 

20 CLS 

530 FRINT"FROGRAMM ZUR GRAFHISCHEN VERANSCHAULI-" 
40 FRINT TAB(3) "CHUNG DES FEDERWAAGEN-GESETZES." 
PEIRRINTEFRINT:PRINT TAB(9P) "FROF.DR.W.VOSS, 1984": 


55 FRINT:FRINT:PRINT:FRINT 

60 INFUT "WERT DER FEDERKONSTANTEN D : ";D 

70 CLS:REM ACHSENKREUZ 

75 LOCATE 3,3: FRINT"ERAFT" 

77 LOCATE 20,3:FRINT" D = ";D 

80 FLOT 50,50:DRAW 380,50 

90 FLOT 50,50:DRAW 50,350 

10060 LOCATE 25,22:FRINT"CM" 

110 FLOT 50,50 

120 B=D/10 

125 A=380 

130 E=50+B#+350 

140 IF E>399 THEN A=400- (350% (E-399) /(E-49) ):E=399 
150 DRAW A,E 

263 FOR I= 1 TO 9999:NEXT I 

265 CLS 

270 INFUT"ERAFT F "3 

280 FW=F/D 

290 FRINT:FRINT:FRINT"FEDERKONSTANTE : ";D 
300 FRINT:PRINT:FRINT"FEDERWEG 2 ";FW 
ni}? ERANTEFRINTEPRINT: INFUT"NOCH EINE RECHNUNG (J7/ 


=20 IF At="J" THEN 265 

>20 FRINT=FRINT: INFUT "ANDERE GRAFHIE (J/N) "3A# 
340 IF A$="J" THEN CLS:G0TO 60 

350 FRINT:FRINT:FRINT"ENDE":END 


voß Kapitel 4 Physik 


Abschnitt 4 :  Federwaage 
Schule 


(5) SCHRITT ‘  Variablenliste 


Spalte für das Ende der Konstanzlinie 


Antwortstring (Ja/Nein) 


D/18 (Größe zur Normierung der Bild- 


schirmausgabe) 


Federkonstante 


Zeile für das Ende der Konstanzlinie 


Kraft 


Federweg 


Laufindex 


Voß Kapitel 4 Physik 


Abschnitt 4 Federwaage 
Schule 


SCHRITT ‚, Programmbeschreibung 


Überschrift 
Eingabe der Federkonstanten D 


Zeichnen des Achsenkreuzes 

Ursprung: 58,58% 

waagrechte Achse: 59,5% bis 389,58 
senkrechte Achse: 58,5 bis 58,359 


Angabe der Achsenbezeichnungen (Satz 
75 und Satz 188) und Angabe der Funk- 
tionsbezeichnung (Satz 77) 


118-158 : Zeichnen der Konstanzlinie von 
58,58 bis A,‚,E 


Dabei müssen der ursprüngliche Wert 
für A(A=389; Satz 125) und der Wert 
für E verändert werden, falls E größer 
als 399 wird, gemäß folgender Skizze 


263-265 : Warteschleife und Löschen des Bild- 
schirms 


278 Anforderung einer Kraft F 


28% : Berechnung des Federweges 
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Abschnitt Federwaage 
Schule 


298-36% : Ausgabe der Ergebnisse 


318 Abfrage, ob noch eine Rechnung; 


wenn ja, zurück nach 265 


wenn nein, weiter bei 33% 


Abfrage, ob eine andere Graphik 


wenn ja, zurück nach Satz 68 nach Lö- 


schen des Bildschirms 


wenn nein, weiter bei Satz 359% 


Ende des Programms 


(7) schritt ı Ergebnisse 


Nach der Eingabe der Inputinformation erzeugt das Pro- 
gramm eine Graphik, wie sie schematisch auf einer der 


vorangegangenen Seiten schon vorgestellt wurde. 


Nach einer Pause fordert dann das Programm eine Kraft 
F an und berechnet den dazugehörigen Federweg. Ein Re- 
chenbeispiel dazu dürfte sich an dieser Stelle erübri- 
gen (vergl. dazu 1. Schritt, wo sich ein entsprechend- 
des Beispiel ja findet). 
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Abschnitt Archimedes 
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4,5 Der Satz des Archimedes 


© SCHRITT \ Vorstellung des 
Problems 


Der Satz des Archimedes lautet 


Der Auftrieb, den ein in eine Flüssigkeit getauchter 
Körper erfährt, ist gleich dem Gewicht der verdräng- 
ten Flüssigkeit. 


Dieser Satz beschreibt die bekannte Erfahrung, daß es 
zunehmender Kraft bedarf, um zum Beispiel einen leeren 


Eimer mit dem Boden nach unten unter Wasser zu drücken. 


Ein immer tiefer in eine Flüssigkeit eintauchender Kör- 
per erfährt einen zunehmenden scheinbaren Gewichtsver- 
lust, der durch den wachsenden Auftrieb vorgetäuscht 
wird. 


Es soll nun ein Programm vorgestellt werden, welches 
auf der Grundlage dieser Beziehungen für einen unbe- 
kannten Körper, der in eine bekannte Flüssigkeit ein- 
getaucht wird (z.B. in Wasser), Volumen und Wichte 

(spezifisches Gewicht) bestimmt, nachdem sein Gewicht 


an der Luft bekannt ist. 


Kapitel 4 „ Physik 
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(2) SCHRITT B Problemanalyse 


Wie bei jeder konkreten Problemstellung, ist auch hier 


nach dem folgenden bewährten Muster zu verfahren 


Eingabe 
Verarbeitung 


Ausgabe 


Das heißt, wir überlegen zunächst, welche Eingabeinfor- 
mationen der Rechner benötigt, wenn er das oben formu- 
lierte Problem lösen soll. Er benötigt folgendes : 
El. Gewicht des unbekannten Körpers in der 
Luft; 
E2. Scheinbares Gewicht des Körpers in der 
Flüssigkeit, in die er eingetaucht wird; 
E3. Wichte der Flüssigkeit, die zur Überprü- 
fung verwendet wird. 


Wenn diese Informationen vorliegen, dann kann im Ver- 
arbeitungsschritt bestimmt werden : 


V1. Auftrieb und Gewicht der verdrängten 
Flüssigkeitsmenge; 

V2. Volumen dieser Flüssigkeitsmenge; 
Volumen des verdrängenden, zu prüfen- 
den Körpers; 

Wichte des zu prüfenden, eingetauchten 
Körpers. 
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Abschnitt 5 ; Archimedes 
Schule 


Als Ausgabe sind schließlich die in den letzten Punk- 


ten V3 und V4 erzielten Ergebnisse vorzusehen. 


(5) SCHRITT H Flußdiagramm 


Berechne 
V1,V2,V3 
und V4 


Ausgabe 
aus V3 und 
aus V4 


Löschen 
des Bild- 
schirms 
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Abschnitt ; Archimedes 
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(4) SCHRITT : Programm 


10 REM FZ2-ARCHIMEDES 

20 CLS 

30 PRINT"FROGRAMM ZUR VERWENDUNG DES SATZES" 

40 FRINT TAB(12) "DES ARCHIMEDES. ":FRINT:FRINT 

50 FRINT TAB(9) "FROF.DR.W.VOSS, 1984": FRINT 
SHoERINTEFRINT"MIT DEM SATZ DES ARCHIMEDES KOENNEN 


56 FRINT"LUMEN UND WICHTE EINES UNBEKANNTEN" 

57 FRINT"EOERFERS BESTIMMT WERDEN. ":FRINT:FRINT 

70 FRINT"EINZUGEBEN SIND DIE FOLGENDEN INFORMA-" 
80 FRINT"TIONEN :":FRINT 

20 FRINT TAB(S)"- GEWICHT DES KOERFERS AN DER LUFT 


100 FRINT TAB(SI" BL)" 
dEpFrERBINT:FRINT TAB (5) "- SCHEINBARES GEWICHT DES E 


120 FRINT TAB(5)" IN DER FLUESSIGEEIT (65)" 


tap, ERINTEFRINT TAB(S)"- WICHTE DER FLUESSIGEEIT 


140 FRINT:PRINT: INPUT 
150 FRINT: INFUT "G6S 
160 FRINT: INFUT "WF 
170 GV=GL-65 

175 VV=GV/WF 

180 . 


190 

200 

210 FRINT"ZU FRUEFENDER KOERFER : ":PRINT 

220 FRINT:FRINT" VOLUMEN s "sVK 
230 FRINT:FRINT" WICHTE 2 "WE 
240 FRINT:FRINT:FRINT: INFUT "NOCHMAL (J/N) "zAF 
250 IF At="J" THEN CLS:G0TO 70 

260 FRINT:FRINT"ENDE DER BERECHNUNGEN" END 


Kapitel : Physik 
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(5) schritt $ Variablenliste 


Stringvariable für die Antworten Ja/Nein 


Gewicht des Körpers an der Luft 
Scheinbares Gewicht des Körpers in der Flüssig- 
keit 


Scheinbarer Gewichtsverlust 


Volumen des Körpers 


Volumen der verdrängten Flüssigkeit 


Wichte der Flüssigkeit 


Wichte des Körpers 


SCHRITT H Programmbeschreibung 


Überschrift und erläuternde Informa- 


tionen 


148-168 : Anforderung der Input-Informationen 


178-198 : Verarbeitungsschritte (Berechnungen) 


2@%-238 : Ausgabe der Ergebnisse 


246-26$ : Abfrage, ob weitere Berechnung (zurück 


nach 79), bzw. Beendigung des Programms 
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Abschnitt ; Archimedes 
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(7) SCHRITT H Ergebnisse 


Geben wir zum Beispiel die folgenden Input-Informatio- 


Gewicht des Körpers = 78 g; 
Scheinbares Gewicht des Körpers in der Prüfflüs- 
sigkeit (zu messen mit einer Federwaage) = 48 g; 


Wichte der Prüfflüssigkeit = 1 (Wasser), 


dann erzeugt das Programm die folgenden Ergebnisse 


ZU PRUEFENDER KOERPER : 


VOLUMEN 36 


WICHTE 2.3333333 


NOCHMAL (J/N) ? 
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Abschnitt 6 : Pendel 
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IR 5 Pendelbewegung 
[2 a 


(1) SCHRITT ı Vorstellung des 
Problems 


Die Pendelbewegung ist ein wichtiger physika- 
lischer Grundtatbestand, der in der Lehre vom Schall 
(Akustik), in der Lehre vom Licht (Optik) und in der 
Elektrizitätslehre eine wichtige Rolle spielt. 


Pendelbewegungen folgen einer 
Sinusschwingung, wie es die 


nebenstehende Skizze zeigt. 


‚Es soll nun ein Programm vor- 
gestellt werden, welches für 
alternative Amplituden (A) und 
für alternative Periodenlängen 
(P), die ihrerseits die sog. 
Frequenz (F) einer Schwingung 
ausmachen, eine solche Sinus- 
schwingung graphisch veran- 
schaulicht. 


Kapitel : Physik 
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(2) SCHRITT ı  Problemanalyse 


Für das geplante Programm müssen wir als Input-Infor- 
mationen die Amplitude der Schwingung und ihre Perio- 


denlänge vorgeben, 


Das Programm kann dann veranlassen, daß - wie in obi- 
ger Skizze - die Sinusschwingung von oben nach unten 
über den Bildschirm "läuft" (was zu einem einfacheren 
Programm führt, als wenn diese Schwingung horizontal 


ausgegeben werden sollte). 


Wesentlicher Inhalt des Programms muß es dabei sein, 

Amplitude und Periodenlänge so zu normieren, daß der 

Bildschirm zur Darstellung der Schwingung optisch gut 
ausgenutzt wird, 


Dies kann erreicht werden, indem wir die Mittellinie 
der Schwingung in die Spalte 28 legen und die Amplitu- 
de, also den größtmöglichen Ausschlag z.B. auf den Ma- 


ximalwert 19 ausrichten. 


Wir wählen hier also - wie aus der gerade genann- 
ten Bildschirmaufteilung hervorgeht - nicht die 
hochauflösende Graphik (dazu siehe Kap. 9), son- 
dern stellen die Schwingung in der sog. Blockgra- 
phik (Normalgraphik) unter Nutzung eines geeigne- 
ten ASCII-Codezeichens dar. 


Voß Kapitel 


Abschnitt 
Schule 


(3) SCHRITT B Flußdiagramm 


Kapitel : Physik 
Abschnitt : Pendel 


(a) shirt ! Programm 


10 REM FF-FENDEL. 

20 CLS 

50 FRINT"FROGRAMM ZUR SIMULATION EINER FENDEL-" 

40 FRINT TAB(14) "BEWEGUNG. ":PRINT:FRINT 

SO FRINT:FRINT TAB(9) "FROF.DR.W.VOSS, 1984":FRINT 
SZ „PRINT:FRINT"ZUM UNTERBRECHEN ESC-TASTE DRUECKEN 


Bad_ERINT:FRINT" ZUM ENDGUELTIGEN ANHALTEN ZWEIMAL E 


56 FRINT TAB(10) "TASTE DRUECKEN !" 

60 INFUT "AMFLITUDE DER SCHWINGUNG : "3A 
70 FRINT: INFUT"FERIODENLAENGE . "sp 
75 IF A>19 THEN A=19 

80 CLS 

90 I=1 

100 J=(2*(22/7)/F)#I 

110 Y=SIN(J) 

20 S=20+Y#A 

130 FOR KE=1 TO S 

140 FRINT CHR# (221); 

150 NEXT K 

1680 FRINT 

170 I=1+1:60T0 100 


(5) schritt ‘ Variablenliste 


Amplitude aer Schwingung 

Laufindex 

Transformierte Größe : J = (2*pi/p)*I 

(J dient der Normierung der Periodenlänge) 
Laufinadex, der die Länge der pro Bildschirmzeile 


auszugebenden Punktstäbe mit Hilfe der Größe S 


bestimmt 

Periodenlänge der Schwingung 
Bildschirmspeicherstelle, an der die jeweilige 
Bildschirmzeile endet 

SIN(J) 


Kapitel Physik 
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SCHRITT Programmbeschreibung 


138-158 


168-178 : 


Überschrift und Erläuterungen 
Anforderung der Input-Informationen 


Beschränkung der Schwingungsamplitude 


auf den Maximalwert 19 
Löschen des Bildschirms 


Beginn Ausdruckschleife (I = Zeilen- 


zählindex) 


Normierung von I nach Maßgabe der Perio- 


denlänge P zur Hilfsgröße J 
Bestimmung des dazugehörigen Sinuswerts 


Bestimmung der Bildschirmzeilen-Position 
des jeweiligen Sinuswertes unter Berück- 
sichtigung der Tatsache, daß der Null- 
wert in der 2$.Spalte liegen soll 


Schleife zum Auffüllen der Zeile bis zum 


jeweiligen Sinuswert mit "Kügelchen" 


Erzwingen eines Zeilenvorschubs und Aus- 
gabe der nächsten Zeile durch Rücksprung 


zu Satz 1$d% nach Erhöhung von I um 1 


Kapitel 
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(7) SCHRITT ‘ Ergebnisse 


Die durch dieses Programm erzeugten Ergebnisse ent- 

sprechen der Skizze, die im ersten Arbeitsschritt vor- 
gestellt wurde, mit dem Unterschied, daß die Bereiche 
zwischen dem linken Bildschirmrand und der Sinuslinie 


mit gelben "Kügelchen" gefüllt werden. 


Der Leser kann sich leicht selbst ausdenken, wie das 
Programm verändert werden müßte, wenn man dieses "Auf- 
füllen" unterdrücken wollte, also nur diejenigen Po- 
sitionen z.B. durch "Kügelchen" optisch markiert, die 


tatsächlich auf der Sinuslinie liegen. 


Das hier vorgestellte Programm ist ein Endlosprogramm, 
das nur durch Betätigung der -Taste abge- 
brochen werden kann. Auch dies ist aber leicht abän- 


derbar. 


Voß Kapitel Physik 


Abschnitt Abbildung 
Schule 


l, 7 Optische Abbildung 


(1) schritt H Vorstellung des 


Problems 


Mit einer konvexen Linse kann - so wie es die 
folgende Abbildung schematisch zeigt - das Abbila eines 


beliebigen Gegenstandes erzeugt werden 


Nach diesem Modell funktioniert der Photoapparat, aber 


auch z.B. das menschliche Auge. 


Es soll nun ein Programm vorgestellt werden, welches 
bei vorgegebener Größe des Gegenstandes, Entfernung des 
Gegenstandes und Brennweite der konvexen Linse die Bild- 


größe bzw. den Abbildungsmaßstab bestimmt. 


Kapitel 4 ; Physik 
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© SCHRITT ı  Problemanalyse 


Das zu erstellende Programm benötigt an Inputinforma- 


tionen : 


1. Gegenstandsgröße, 
2. Gegenstandsentfernung, 


3. Brennweite der Linse. 


Zur Lösung des Problems benötigen wir die sog. Linsen- 


gleichung 


1/g + 1/b 


Brennweite 
Gegenstandsweite 
Bildweite 


Löst man diese Beziehung nach b auf, so erhält man : 


1 
1/£-T/g 


Weiterhin gilt, daß der Abbildungsmaßstab A sich ergibt 


zu : 


A B/G = b/g 
Wenn nun beispielsweise der abzubildende. Gegenstand 
die Größe G = 28 cm hat, so ist mit Hilfe der obigen 


Beziehungen auch die Bildgröße bestimmbar, nämlich : 


= (b*G)/g , weil B/G = b/g 


voß Kapitel 
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: Physik 
; Abbildung 


4 
7 


Schule 


©) SCHRITT H Flußdiagramm 


Rechne b, 
A und B 


Ausgabe 


Voß 
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(W) schritt ; Programm 


10 REM F4-LINSE 

20 CLS 

30 FRINT"FROGRAMM ZUR BERECHNUNG VON BILDWEITE," 
40 FRINT"BILDGROESSE UND ABBILDUNGSMASSTAB BEI" 

50 FRINT TAB(9) "EINER EONVEXEN LINSE. ":FRINT 

60 FRINT=:FRINT TAB(9) "FROF.DR.W.VOSS, 1984": FRINT 
79 ,FBANTFFRINT"EINZUGEBEN SIND DIE FOLGENDEN DATEN 


80 FRINT TAB(S5)"- GEGENSTANDSGRÜOESSE : ":;:INFUT 6 
90 FRINT TAB (5) "- GEGENSTANDSWEITE : "3: INFUT GW 
100 FRINT TAB (5) "- BRENNWEITE s "32INPUT F 
110 CLS 

120 BW=1/ (1/F-1/GW) 

130 A=EW/GW 

140 B=(6*BEW) /GW 


5 BW=INT (BW*10040.5) /100: A=INT (A*100+0.5) 7100: B= 
INT  ERTANISPRSIOOEO- 5 z 


150 FRINT"AUSGANGSDATEN : ":FRINT 
1680 FRINT TAB(S) "BRENNWEITE = "sF 
170 FRINT:FRINT TAB (5) "GEGENSTANDSGROESSE "6 


180 FRINT:FRINT TAB (5) "GEGENSTANDSWEITE "GW 
190 FRINT:FRINT:FRINT"ERGEBNISSE : ":PRINT 

200 FRINT:FRINT TAB (5) "ABBILDUNGSMASSTAB "a 
210 FRINT:FRINT TAB (5) "BILDGROESSE " 
220 FRINT:FRINT TAR(S5) "BILDWEITE ";BW 
Ayo „PRINTEPRINTEPRINTS INPUT"NOCH EINE RECHNUNG (J/ 


240 IF At="J" THEN CLS:G60T0 70 
250 FRINT:FRINT"ENDE DER BERECHNUNGEN":END 


(5.) schritt ‚ Variablenliste 


Abvpildungsmaßstab 


Stringvariable (Ja/Nein) 
Bildgröße 

Bildweite 

Brennweite 
Gegenstandsgröße 


Gegenstandsweite 
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Abschnitt ; Abbildung 
Schule 


SCHRITT \ Programmbeschreibung 


Satz 1$-7% : Überschrift und Erläuterungen 


Satz 84-198 : Anforderung der Inputinformationen 


Satz 119-148 Löschen des Bildschirms und Berechnungen 


Satz 145 : Runden auf 2 Dezimalstellen 


Satz 158-228 : Ausgabe der Ergebnisse 


Satz 238-249 : Abfrage, ob weitere Berechnung ge- 
wünscht (dann zurück nach Satz 78 


nach Löschen des Bildschirms) 


Beendigung des Programms 


(7) SCHRITT \ Ergebnisse 


Geben wir z.B. ein : G = 28 cm, GW = 388 cm, F = 15 cm, 


so erhalten wir : 


BRENNWEITE 
GEGENSTANDSGROESSE 
GEGENSTANDSWEITE 
ERGEBNISSE : 
ABBILDUNGSMASSTAB 
BILDGROESSE 
BILDWEITE 


NOCH EINE RECHNUNG (J/N) 2? 


Voß Kapitel 4 : Physik 


Abschnitt 8 : Parallelogramm 
Schule 


Kräfteparalle- 
6 logramn 


(2) schritt \ Vorstellung des 
Problems 


Wenn zwei Kräfte an einem gemeinsamen Punkt 
ansetzen, so ergibt sich eine gemeinsame resultieren- 
de Kraft als Diagonale des sog. Kräfteparallelogramnms, 


wie die folgende Skizze verdeutlicht: 


Im folgenden Programm soll für die beliebige Kon- 
stellation von je zwei Kräften das Kräfteparallelo- 


gramm graphisch ausgegeben und die resultierende 


Kraft F3 berechnet werden. 


Kapitel 4  . Physik 
Abschnitt 8 :  Parallelogramm 


(2) SCHRITT \ problemanalyse 


Der Ansatzpunkt der beiden Kräfte soll in die Mitte des 
Bildschirms gelegt werden (329,29ß). 


Einzugeben sind die Kräfte F1 und F2, die zunächst so 
umzurechnen sind, daß Fi + F2 nicht 'größer als 329 
wird, damit auch bei ungünstigster Konstellation der 


Platz des Bildschirms ausreicht. 


Einzugeben sind weiterhin die Winkel W1 und W2, in de- 


nen die Kräfte Fi und F2 am Ansatzpunkt angreifen. 


Mit Hilfe des Satzes des Pythagoras und der Benutzung 
der Winkelbeziehungen im rechtwinkligen Dreieck können 
dann Spalten und Zeilen von A und B und daraus dann 
auch die Koordinaten von C berechnet werden (siehe Skiz- 


ze). 


Ist die Lage von C bekannt, kann wiederum aus Fi und 


F2 die interessierende Kraft F3 berechnet werden 


© SCHRITT ®  Flußdiagramm 


Auf ein Flußdiagramm kann hier verzichtet werden. 


Kapitel Physik 


Abschnitt ® Parallelogramm 


) SCHRITT : Programm 


10 REM FS-FARALLELOGRAMM 

20 CLS 

>30 FRINT"FROGRAMM ZUR VERANSCHAULICHUNG DES SOG." 
40 FRINT" KRAEFTE-FARALLELOGRAMMS BEI ZWEI AN-" 
50 FRINT TAB (9) "GREIFENDEN ERAEFTEN. ":FRINT:FRINT 
PR ıÄBINTEFRINTEPRINT TAB(M "FROF.DR.W.VOSS, 1984": 


70 SU=320: ZU=200 

80 FRINT:FRINT:FRINT:FRINT 

90 INFUT "ERSTE ERAFT Fi 

100 INFUT "ANSATZWINKEL. Fi (0-5360) 

105 FRINT:FRINT 

110 INFUT "ZWEITE ERAFT F2 

120 INFUT "ANSATZWINEEL FE (0-360) 

130 Wi=W1*((22/7)/180) :W2=W2%* ( (22/7)/180) 
135 H=F1:G6=FZ 

140 Fi=(F1/ (Fi+F2)) #300: F2=(F2/ (H+FE) ) #300 
150 Z1=F1#*SIN (Wi) +200 

160 Si=((Z1-200) /TAN(WLI)+FZ2O 

165 CLS 

170 FLOT 320,200 

180 DRAW S1,Z1 

190 Z2=F2#SIN (W2) +200 

200 52=( (72-200) /TAN (W2) ) +320 

210 FLOT 320,200 

220 DRAW S2,ZZ 

230 53=52+(S1-SU) 

240 7Z3=72+(21-ZU) 

250 FLOT SU,ZU 

260 DRAW 53,23 

270 F3=SOR((Z3-ZU)"2 + (S3-5U)”2) 

275 F3=F3% (G+tH) /300 

280 LOCATE 5,16 

290 FRINT"ERAFT 1 = "5;H 

300 FRINT TAB(S) "KRAFT 2 = "36 

310 FRINT:FRINT"RESULTIERENDE KRAFT = ";F3 
>20 PRINT:FRINT=:FRINT: INFUT "NOCHMAL (J/N) "zA# 
330 IF Af="J" THEN CLS: GOTO 90 

240 FRINT:FRINT:FRINT"ENDE":END 
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Abschnitt 8 Parallelogramm 
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(5) SCHRITT \ Variablenliste 


Stringvariable (Ja/Nein) 
erste Kraft 

zweite Kraft 

dritte Kraft 
Hilfsgröße (=F2) 
Hilfsgröße (=F1) 
Spalte Ursprung 
Spalte Punkt A 
Spalte Punkt B 
Spalte Punkt C 
erster Ansatzwinkel 
zweiter Ansatzwinkel 
Zeile Ursprung 

Zeile Punkt A 

Zeile Punkt B 

Zeile Punkt C 


(5) schritt f Programmbeschreibung 


: Überschrift 
Ursprungskoordinaten 
Eingabe der Ausgangsinformationen 


Umrechnen der Winkel in Einheiten 
des Kreisparameters 


Speichern der eingegebenen Kraft- 
angaben 
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Abschnitt 8 : Parallelogramm 
Schule 


148 : Normierung der beiden Kräfte 
zur Bildschirmausnutzung 


158-169 : Bestimmung der Koordinaten von A 
165-189 : Zeichnen von FI 

198-28% Koordinaten von B 

218-229 Zeichnen von F2 

238-248 : Koordinaten von C 

259-269 Zeichnen von F3 

278 Berechnen von F3 (Pythagoras!) 


275 : Rückgängigmachen der Normierung 
von Satz 148 für F3 


289-319 Ausgabe der Ergebnisse 
328-348 : Beendigung des Programms, es sei 


denn, es wird eine Alternativrech- 
nung gewünscht (dann zurück zu Satz 99). 


(7) schritt ‘ Ergebnisse 


Auf die Darstellung von Ergebnissen kann hier - ange- 


sichts der Skizze aus dem 1. Schritt - verzichtet 


werden. 


Voß Kapitel Physik 


Abschnitt : Ohm'sches Gesetz 
Schule 


l, Q Das Ohm'sche Gesetz 
. a — ———————— 


(1) schritt Vorstellung des 
Porblems 


In Stromleitern, in denen bei steigender Span- 
nung die Stromstärke proportional zunimmt, gilt das 


UOhm'sche Gesetz. 
Es besagt in Formelschreibweise : 


Spannun 


Stromstärke > Ronasane = IR 


Die Größe R nennt man den elektrischen Widerstand des 


betreffenden Stromleiters. 


Im folgenden Programm soll für jeweils zwei eingegebene 


Werte (Spannung, Stromstärke, Widerstana) die jeweils 


dritte Größe berechnet werden. 


Diese Aufgabe gibt uns die Gelegenheit, die PRINT USING- 


Anweisung einzuführen: 


Der Satz 
x = 12.323:PRINT USING " 


führt zum Ergebnis 12.32. 


Mit der "Maske" " " (oder anderen) kann also angege- 
ben werden, mit wievielen Stellen ein Rechenergebnis 


erscheinen soll. Es wird dabei korrekt gerundet. 
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Abschnitt : Ohm'sches Gesetz 
Schule 


(2) schritt ‘ Problemanalyse 


Das Programm, um das es hier geht, bietet unter mathe- 
matischen Gesichtspunkten überhaupt keine Schwierigkei- 
ten, weil ja im Prinzip nur ein einziger Rechenschritt 
erforderlich ist. 


Die einzige Schwierigkeit ist programmlogischer Art und 
besteht darin, daß die Eingabe aus drei unterschiedli- 
chen Varianten bestehen kann, denen sich dann unter- 


schiedliche Rechenprozeduren anschliessen. 


Diese Eingaben können sein 


1. Spannung und Stromstärke; 
2. Spannung und Widerstand; 


3. Stromstärke und Widerstand. 


Dies gibt uns Gelegenheit, die sog. Menütechnik vorzu- 


führen : 


Es geht dabei darum, dem Programmbenutzer ein "Menü" 
zur Auswahl auf dem Biläschirm vorzugeben, aus dem die- 
ser dann die gewünschte Variante auszuwählen hat. Je 
nach Auswahl kommen dann unterschiedliche, wenn auch 


hier sehr einfache Rechenprozeduren in Gang. 


Dieses Menü würde hier aus drei Positionen bestehen 
(s.o). 


Der Problemlösungsweg selbst wird aus dem folgenden 


Flußdiagramm deutlich. 
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Abschnitt Ohm'sches Gesetz 
Schule 


® Physik 


(5) schritt Flußdiagramm 


Vorgabe: 
Menü 1, 
2,3 


Auswahl A 


Dr 
er 


A be 
— Ausgabe i usga 


I 
U 


Voß 
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(4) schritt ER 3 RROgERIN 


10 REM F&6-OHMSCHES GESETZ 

20 CLS 

30 FRINT"FROGRAMM ZUR DARSTELLUNG DER BEZIEHUNGEN" 
40 FRINT" ZWISCHEN STROMSTAEREE, SFANNUNG UND WI-" 
50 FRINT TAB(7)"DERSTAND (OHMSCHES GESETZ). " 

PR LREINT=PRINTEFRINT TAB(9)"FROF.DR.W.VOSS, 1984": 


FO-ERANTAERINT"MIT WELCHEN VORGABEN WIRD GEARBEITE 


80 FRINT TAB (S) "SFANNUNG UND STROMSTAERKE (v" 
79, ERINT=FRINT TAB (5) "SFANNUNG UND WIDERSTAND 


199, ERINT:FRINT TAB (5) "STROMSTAERKE UND WIDERSTAND 
110,ERINT:FRINT: INFUT"BITTE ZIFFER EINGEBEN 


120 CLS 

130 IF A>1 THEN 190 

140 INFUT "SFANNUNG 8 

150 INFUT "STROMSTAEREE : 

160 R=U/1 

AAO 4ERINT:PRINT:PRINT"WIDERSTAND = ";USING "### 


180 GOTO 300 

190 IF A=3 THEN 250 

200 INPUT "SFANNUNG 

210 INFUT "WIDERSTAND 

220 I=U/R 

EROHABINTEFRINT:PRINT"STROMSTAERKE : ";USING "#H# 


240 GOTO 300 

250 INFUT "WIDERSTAND u" 
260 INFUT "STROMSTAERKEE : " 
270 U=R#I 

e PR A " ". u 
EROHHHINTEFRINTEPRINT SPANNUNG 2 "USING "#HH# 


3R9 ERANTEPRINTEPRINT: INPUT "NOCH EINE RECHNUNG (J 
Rp RAN \ 


310 IF A$="J" THEN CLS:G60TO 70 
320 FRINT:FRINT"ENDE DER BERECHNUNGEN": END 


R 
I 
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(5) SCHRITT ı Variablenliste 


Auswahlvariable (Menü) 


Stringvariable (Ja,Nein) 


Stromstärke 
Widerstand 


Spannung 


SCHRITT ı  Programmbeschreibung 


18-68 : Überschrift und Erläuterungen 

78-188 : Vorgabe des Menüs 

118 : Menüauswahl 

128-138 : Wenn A größer als 1 ist (A = Menü- 
variable) geht es nach Löschen des 
Bildschirms weiter bei Satz 198 

148-158 : Eingaben gemäß Auswahl A = 

168-178 : Berechnungen und Ergebnisausgabe 


18% Sprung zum Satz 3d@ 


198-248 : Entsprechende Berechnungen wie oben; 


nun aber für A = 2 
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Satz 25%-289 Entsprechende Berechnungen; nun für 
A=3 


Satz 34-31 Abfrage, ob noch eine Berechnung ge- 


wünscht wird 


wenn ja, Löschen des Biläschirms und 


zurück zum Satz 79 


Beendigung des Programms 


(7) SCHRITT ı Ergebnisse 


wählen wir bei der Menüauswahl z.B. die Ziffer 1, so 
werden vom Programm Spannung und Stromstärke angefor- 
dert. Geben wir daraufhin z.B. für die Spannung den 
Wert 22% an und für die Stromstärke den Wert 11, so 


erhalten wir als Ergebnisausdruck : 


WIDERSTAND 


NOCH EINE RECHNUNG (J/N) ? 
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Kapitel 5 : Sprachen 


5 1 Vorbemerkung und BASIC-Ergänzungen 
. 0 


Auch beim Erlernen oder beim Üben von Freimd- 
sprachen können Rechner wirkunsvolle Hilfe leisten. Da- 
bei geht es jetzt nicht darum, komplette Sprachunter- 
richtsprogramme (zum Beispiel zum Erlernen von Englisch) 
vorzustellen, weil dies den Rahmen und den Anspruch 
dieses Buches weit übersteigen würde - außerdem kann 
man solche "Komplettprogramme" schon zu relativ günsti- 
gen Preisen käuflich erwerben. Vielmehr interessiert 
hier, mit geringem Aufwand einfache Programme zu er- 
stellen, die den sprachlernenden Schüler bei seinen Be- 


mühungen unterstützen können. 


In Frage kommen hier in erster Linie solche Programme, 
die das Erlernen von Vokabeln erleichtern, oder die 
Übersetzungen bereitstellen, um so das Nachschlagen 


in Wörterbüchern zu ersparen, 
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Abschnitt BASIC 
Schule 


Für derartige Programme ist es nun allerdi:gs notwen- 


dig, einige zusätzliche BASIC-Anweisungen kennenzuler- 
nen : 


Statement 20: 


nn Name3=INKEY$ 


Dieses Statement wartet, ähnlich wie das schon oft be- 
nutzte INPUT-Statement, eine Informationseingabe ab, 
die dann der Stringvariablen Nameß zugeordnet wird. 
Diese Eingabe braucht nicht durch die ENTER-Taste ab- 
geschickt zu werden. In den späteren Programmen wird 
die Funktionsweise deutlich werden. 


Häufig ist es sinnvoll, daß bestimmte Programmsegmente 
aus dem eigentlichen Hauptprogramm ausgelagert werden, 
um dann von diesem aus mehrfach angesprungen zu wer- 

den. 

Solche ausgelagerten Teilprogramme nennt man Unterpro- 
gramme (subroutines). Der Sprung vom Hauptprogramm in 


das Unterprogramm erfordert das folgende Statement : 


Statement 21: 
nn GOSUB mm 


Dieses Statement bewirkt einen Sprung in das Unterpro- 


gramm, das mit der Satznummer mm beginnt. 
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Ist dann das Unterprogramm abgearbeitet, muß ein Rück- 
sprung in das Hauptprogramm erfolgen. Zu diesem Zweck 
wird das Unterprogramm mit dem folgenden Statement be- 


schlossen : 


Statement 22: 


nn RETURN 


Dieses Statement bewirkt, daß ein Rücksprung an dieje- 
nige Stelle des Hauptprogramms erfolgt, die direkt hin- 
ter der entsprechenden GOSUB-Anweisung folgt. 


Auch die Wirkungsweise dieser beiden Statements wird 


in den folgenden Programmen deutlich werden, so daß 


hier auf Demonstrationsbeispiele verzichtet werden 
kann. 


Voß Kapitel ; Sprachen 


Abschnitt ; Unregelmäßige Verben 
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5 2 Englische unregelmäßige Verben 
‘ m 


(2) schritt Vorstellung des 
Problems 


In einem ersten Beispiel soll ein Programm 
vorgestellt werden, welches für ein eingegebenes eng- 
lisches Verb die dazugehörigen unregelmäßigen Stamm- 
formen angibt. 


Beispielsweise soll der Rechner auf die Eingabe des 
Verbs 


go 
mit den Meldungen 
go (gehen) 


antworten. 


Um den Programmieraufwand nicht zu hoch werden zu las- 
sen, wollen wir uns dabei auf 2% wichtige unregelmäßi- 
ge Verben beschränken. Der Leser wird sofort erkennen, 
wie er das Programm in Eigenarbeit ergänzen muß, um 
einen kompletten Überblick über alle englischen unre- 


gelmäßigen Verben zu erhalten. 


Kapitel Sprachen 
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(2) SCHRITT : Problemanalyse 


Das Programm, um das es hier geht, muß für ein einzu- 
gebendes Schlüsselwort alle drei Stammformen und die 


deutsche Übersetzung des betreffenden Verbs ausgeben. 


Dies macht es erforderlich, daß alle Informationen zu- 


nächst dem Rechner eingegeben werden. 


Bei sehr umfangreichen Informationsbeständen ist es 
sinnvoll, die Ausgangsinformationen nicht bei jedem 
Programmstart neu zu lesen, sondern nur die gewünschte 
Information aus einer Textdatei einer entsprechend vor- 
bereiteten Diskette interaktiv einzulesen. Diese Möglich- 
keit, auf die fortgeschrittenere Programmierer sicher- 
lich zugreifen werden - zumindest sofern sie über ein 
Diskettenlaufwerk verfügen - soll hier aber nicht be- 


sprochen werden. 


Wir lassen also bei jedem Programmstart die Ausgangs- 
informationen lesen und lassen dann das Programm das 
gewünschte englische Verb anfordern. Der Rechner ver- 
gleicht dann diese Eingabe mit den Gesamtinformationen, 
bis er das betreffende Verb im Datenbestand gefunden 
hat. Dann kann er die Stammformen und die deutsche Über- 


setzung ausgeben. 


Findet er bei diesen Vergleichen in seinem Datenbestand 


das eingegebene Verb nicht, dann deshalb, weil es 


- entweder im Datenbestand noch nicht vorhanden 
ist (wir haben ja vorläufig nur 28 Verben auf- 


genommen), 
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- oder, weil es sich bei dem eingegebenen Verb 


nicht um ein unregelmäßiges Verb handelt. 


In beiden Fällen, die aber bei dem folgenden Programm 
wegen der Nicht-Vollständigkeit der Ausgangsinformatio- 
nen nicht voneinander trennbar sind, ist eine Meldung 


auszugeben, 


Weiterhin soll das Programm dem Benutzer die Gelegen- 


heit geben, ein weiteres Verb abzufragen. 


Die Stammformen selbst und die deutsche Übersetzung 
können, da es sich immer um Strings handelt, in einem 


doppelt indizierten String-Array gespeichert werden. 


(3) SCHRITT \ Flußdiagramm 


Eingabe Eingabe 
alle Wunsch- 
Verben verb 


Ausgabe: 
nicht 
vorhanden 
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(4) schritt ! Programm 


10 REM S1-UNREGELM. VERBEN,ENGLISCH 

20 CLS 

30 FRINT"FROGRAMM ZUR AUSGABE DER STAMMFORMEN" 

40 FRINT"VON EINGEGEBENEN ENGLISCHEN UNREGEL.-" 

50 FRINT TAB(11)"MAESSIGEN VERBEN." 

60 FRINT:FRINT:FRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
70 FRINT:FRINT:FRINT:FRINT 

80 FRINT"DIE ZAHL DER VORHANDENEN WORTE IST IN" 

90 FRINT"DIESEM FROGRAMM BESCHRAENKT. ERWEITE-" 
100 FRINT"RUNGEN SIND MOEGLICH, WENN DIE LISTE" 
110 FRINT"DER DATA-STATEMENTS VERLAENGERT WIRD" 
120 FRINT" (SATZ SO0 FF.) UND WENN IN SATZ 160 DIE" 
15D ;KRTNT"ANGABE FUER N ERHOEHT WIRD. ":FRINT:FRINT 


135 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN !" 
140 AF=INKEYF 

150 IF At="" THEN 140 

155 CLS:FRINT TAB(12) "MOMENT BITTE":FRINT:FRINT 
160 N=20 

170 DIM W#£(N,„4) 

AHERFOR I=1 TO N:FOR J=1 TO 4:READ WE(I,J)SNEXT J: 


190 CLS 

200 FRINT"BITTE DAS DEUTSCHE VERE,„ DESSEN ENGL-" 
Z10 FRINT"SCHE STAMMFORMEN GEWUENSCHT WERDEN," 

220 INPUT "EINGEBEN : ";V# 

230 FOR I=1 TON 

240 IF V$=W#(I,1i1) THEN 275 

250 NEXT I 

ÖRRahBENT;FRINT: PRINT" VEREB NICHT IM DATENBESTAND V 


270 FRINT"BZW. NICHT UNREGELMAESSIG. ":G60T0 310 
275 PRINT:FRINT:FRINT 

280 PRINT"VERB : ";W$&(I,L):PRINTSFRINT:FRINT 
290 FRINT"ENGLISCHE STAMMFORMEN : ":FRINT 

300 FOR J=2 TO 4:FRINT WE(I,J)s;" "3ENEXT J 
310 FRINT:PRINT:FRINT: INFUT"NOCHMAL (J/N) "zA$ 
320 IF A$="J" THEN CLS:G60T0 200 

330 FRINT:PRINT:FRINT"ENDE":END 

500 DATA SEIN,BE,WAS,BEEN 

502 DATA HABEN ,HAVE ‚,HAD,HAD 

504 DATA BEGINNEN, BEGIN,BEGAN, BEGUN 

506 DATA BRINGEN, BRING , BROUGHT , BROUGHT 

508 DATA KOMMEN , COME „CAME „COME 

510 DATA TUN,DO,DID,DONE 

512 DATA ESSEN,EAT,ATE,EATEN 

514 DATA KAUFEN, BUY ,BOUGHT , BOUGHT 

516 DATA FUEHLEN,FEEL,FELT,FELT 
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FINDEN,F IND,FOUND ‚FOUND 
GEHEN, GO ‚WENT ‚GONE 
VERLIEREN,LOSE ‚LOST,LOST 
MACHEN, MAKE ‚MADE ‚„MADE 
LESEN,READ ‚READ ‚READ 
LAUFEN,RUN,RAN,RUN 
SAGEN,SAY,SAID,SAID 
SEHEN, SEE ,SAW,SEEN 
SITZEN,SIT,SAT,SAT 
SPRECHEN, SPEAK ‚SPOKE ‚SPOKEN 
NEHMEN, TAKE , TOOK ,TAKEN 


(5) schritt \ Variablenliste 


Stringvariable für Eingaben 


Laufvariable 
Laufvariable 


Anzahl der Datensätze 


Gewünschtes Verb 
Stammformen der Verben und deutsche Übersetzung 
(Ausgangsdatenbestand) 
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SCHRITT , Programmbeschreibung 


Überschrift, Erläuterungen und Hinweise, 
wie der Datenbestand aktualisiert wer- 


den kann 
148-158 Programm in "Warteposition". Die Pro- 


grammausführung geht erst weiter, wenn 


der Benutzer irgendeine Taste drückt. 


155 : Löschen des Bildschirms und Hinweis 
168-188 : Dimensionierung und Einlesen der Daten 


198-228 : Löschen des Bildschirms und Anforderung 
des gewünschten Verbs 


236-256 : Suche nach dem richtigen Datenbestand 


Wird er gefunden, dann weiter bei 275 


wird er nicht gefunden, weiter bei 26% 


268-278 Meldung, daß Verb im Datenbestand nicht 
vorhanden; dann weiter bei Satz 31 


275-368 Ausgabe der gesuchten Informationen 


318-328 : Abfrage, ob weitere Ausgabe gewünscht 


wenn ja, Löschen des Bildschirms und 
zurück zu Satz 29% 


wenn nein, Ende des Programms 
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Satz 588-538 : Daten 


(7) SCHRITT 4 Ergebnisse 


Gibt man beispielweise auf die Anforderung des Rechners 


aus Satz 2$% ein 
GO 


so antwortet der Rechner : 


VERB : GEHEN 
ENGLISCHE STAMMFORMEN : 
Go WENT GONE 


NOCHMAL (J/N) ? 


Es ist deutlich zu sehen, wie das Programm geändert 
werden müßte, wenn die Liste der unregelmäßigen Verben 
komplettiert werden soll : In den Sätzen 588 ff. sind 
weitere DATA-Statements anzuhängen und Satz 169 muß 
ausgetauscht werden mit der Angabe der aktuellen Zahl 


eingegebener Verben. 


Kapitel 5 ® Sprachen 
Abschnitt : Vokabeln 


s‘ 3 Französisch-Vokabeln 
. — [nn 


©) SCHRITT : Vorstellung des 
Problems 


In üiesem Beispiel soll nun gezeigt werden, 
wie der Rechner als Vokabelheft-Ersatz Verwendung fin- 
den kann. Auf ein einzugebendes französisches Wort ant- 
wortet er mit dem entsprechenden deutschen Wort oder 
umgekehrt (es gilt hier die gleiche Anmerkung wie in 
Abschnitt 5.2 zur interaktiven Nutzung eines Disketten- 
speichers). 


Um das Programm wieder nicht zu groß werden zu lassen, 
beschränken wir uns auf nur zehn Vokabeln. Dieses Pro- 
gramm dient also nur als Beispiel. Wenn es echt genutzt 
werden soll, müßte sich der Leser die Mühe machen, sei- 
nen gesamten deutsch-französischen Vokabelvorrat zu- 


nächst dem Rechner einzugeben. 


An den Funktionsprinzipien des Programms ändert sich 
aber daaurch nichts. 


Voß Kapitel ‚ Sprachen 


Abschnitt ‚ Vokabeln 
Schule 


(2) SCHRITT ! Problemanalyse 


Bei diesem Problem können wir uns kurz fassen 


Gibt der Benutzer ein deutsches Wort ein, sc ınuß der 
Rechner durch Vergleich mit allem ihm zur Verfügung 
stehenden deutschen (und damit paarweise verbundenen 
französischen Worten) das entsprechende deutsch-franzö- 
sische Wortpaar aus seinem Datenbestand heraussuchen 
und ausgeben. Entsprechend ist auch im umgekehrten Fall 


zu verfahren. 


Damit beide "Übersetzungsrichtungen" in nur einem Pro- 
gramm bewältigt werden können, muß dem Rechner zunächst 
mitgeteilt werden, ob deutsch-französische oder ob 


französisch-deutsche übersetzung gewünscht wird. 


Falls das eingegebene Wort nicht übersetzt werden kann, 
weil es in der (hier sehr kurzen) Vokabelliste (noch) 
nicht vorhanden ist, muß wieder eine entsprechende Mel- 


dung erfolgen. 


Weiterhin sollte dem Benutzer Gelegenheit geboten wer- 
den, im gleichen Programmlauf eine weitere Übersetzung 


zu erhalten, wenn er dies wünscht. 
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(5) SCHRITT : Flußdiagramm 


Meläung: 
nicht 
vorhanden 


: Sprachen 


voß Kapitel 5 
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Schule 


(4) SCHRITT Programm 


REM S2-VERBEN DEUTSCH-FRANZOESICH 

CLS 

FRINT"FROGRAMM ZUM NACHSCHLAGEN VON VOKABELN: " 
FRINT:FRINT"DEUTSCH/FRANZOESICH ODER UMGEHEHRT. 


FRINT:FRINT:FRINT TAR(9)"FROF.DR.W.VOSS, 1984" 
FRINT=:PRINT=:FRINT:FRINT 
FRINT"IM DATENBESTAND DIESES FROGRAMMS BEFIN-" 
FRINT"DEN SICH NUR 10 VOKABELN.":FRINT 
FRINT"SOLL DAS FROGRAMM AUSGEWEITET WERDEN," 
FRINT"SO MUESSEN IN 500 FF. WEITERE DATA-STA-" 
FRINT"TEMENTS ANGEFUEGT UND DER WERT FUER N" 
FRINT"IN STATEMENT 160 GEAENDERT WERDEN." 
LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN !" 
AF=INKEYF:IF Af="" THEN 140 

ECLS:FRINT"MOMENT BITTE" 

N=10 

DIM D£ (N) ,F#£(N) 

FOR I=1 TO N:READ D#(I),FF(I):NEXT I 

CLS 

FRINT"WELCHE UEBERSETZUNG WIRD GEWUENSCHT ?" 
FRINT:FRINT=:FRINT"- DEUTSCH-FRANZOESICH (1)" 
PRINT:FRINT"ODER" 

FRINT:FRINT "- FRANZOESICH-DEUTSCH (2)" 
FRINT:FRINT: INFUT"BITTE 1 ODER 2 EINGEBEN ";Z 
CLS 

IF Z=2 THEN 350 

FRINT:FRINT:= INFUT"DEUTSCHES WORT BITTE : "WE 
FOR I=1 TO N:IF W#=D#(I) THEN 320 

NEXT I 

FRINT:PRINT"GESUCHTES WORT IM DATENBESTAND NIC 


FRINT"VORHANDEN. ": GOTO 450 
CLS:FRINT"DEUTSCH ";D$(D 
FRINT:FRINT "FRANZOESISCH 2 "sF$(I) 

GOTO 450 

FRINT:FRINT: INFUT"FRANZ. WORT BITTE : "3W£ 

FOR I=1 TO N:IF WE=F#(I) THEN 400 

NEXT I 

FRINT:FRINT"GESUCHTES WORT IM DATENBESTAND NIC 


FRINT"VORHANDEN. ":GOTO 450 
CLS:FRINT"FRANZOESICH s "sF$(D) 
FRINT:FRINT "DEUTSCH = "DECO 
FRINT=SFRINTEFRINT: INPUT"NOCHMAL ? (J/N) "3A 
IF A$="J" THEN CLS:G60T0O 200 

FRINT:PRINT"ENDE DER AUSGABE" :END 


Kapitel Sprachen 
Abschnitt Vokabeln 


KAUFEN,ACHETER 
HABEN,AYVOIR 
GEHEN,ALLER 
SEHEN, VOIR 
TRINKEN,BOIRE 
MACHEN,FAIRE 
LESEN,LIRE 
ESSEN, MANGER 
NEHMEN, PRENDRE 
RAUCHEN, FUMER 


(5,) schritt Variablenliste 


Stringvariable für Eingaben 


deutsche Vokabeln 


französische Vokabeln 


Laufindex 
Anzahl der Datensätze 


gewünschtes Wort 


Kennziffer bei der Menü-Auswahl 
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SCHRITT ı Programmbeschreibung 


18-129 


138-158 


168-189 


198-248 


245-258 


269 


288-299 


368-319 


328-338 


348 


358-418 


456-478 


588-518 


Überschrift, Erläuterungen etc. 


: Warten, bis Tastendruck erfolgt und Lö- 


schen des Bildschirms' 

Angabe der Anzahl der Datensätze, Di- 
mensionierung und Eingabe der Ausgangs- 
daten. 


Löschen des Bildschirms und Menüvorgabe 


Wird 2 eingegeben (französisch-deutsch), 
dann weiter bei Satz 359@ 


Eingabe eines deutschen Wortes 


Suche nach dem entsprechenden Datensatz 


Ist das gesuchte Wort im Datenbestand 
(noch) nicht vorhanden, weiter bei 458 


Ausgabe der Ergebnisse 


Sprung nach Satz 458% 


Entsprechende Vorgehensweise für die 


Eingabe eines französischen Wortes 


Beendigung des Programms mit Wiederho- 
lungsmöglichkeit 


Daten 
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©) SCHRITT ı Ergebnisse 


Geben wir nach der Menüvorgabe die Ziffer 1 ein und 
entscheiden uns damit für die deutsch-französische 
Ausgabe, so fordert der Rechner von uns ein deutsches 
Wort an. 

Geben wir z.B. daraufhin das Wort haben ein, so ant- 
wortet der Rechner : 


DEUTSCH 


FRANZÖSISCH 


NOCHMAL (J/N) ? 
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5 L Englisch-Vokabeltest 
[ Im 


©) SCHRITT Vorstellung des 
Problems 


Ähnlich wie im vorangegangenen Abschnitt sol- 
len - ausgehend von einem bestimmten Vokabelvorrat - 
Übersetzungen bereitgestellt werden. Im Gegensatz aber 
zum vorhergehenden Programm soll der Benutzer aufgefor- 
dert werden, zu einem vom Rechner zufällig ausgewähl- 
ten deutschen Wort das korrekte englische Wort einzu- 


setzen. 


Es wird hier also ein Programm vorgestellt, das so funk- 
tioniert wie früher das Vokabellernen mit zugehaltener 
Fremawortspalte im Vokabelheft vor sich ging. 


Es leuchtet unmittelbar ein, daß ein entsprechendes Pro- 
gramm auch für Englisch-Deutsch bzw. für andere Fremd- 


sprachen verwendet werden könnte. 


Im Interesse der Reduzierung Jdes Programmieraufwandes 
beschränken wir uns hier wieder auf die exemplarische 
Darstellung anhand von nur zehn Vokabeln. Eine Unter- 
gruppe davon wird jeweils vom Rechner zufällig ausge- 
wählt und dem Benutzer wird nach jeder Serie mitgeteilt, 
wie hoch seine Erfolgsquote war. 
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(2) schritt H Problemanalyse 


Ausgehend von einem vorgegebenen Datenbestand, muß das 
Programm eine Zufallsauswahl treffen. 


Auf jede vorgegebene Vokabel antwortet der Benutzer. Die 
Anzahl der richtigen Antworten wird in Beziehung gesetzt 
zur Anzahl der angeforderten Antworten. 


Das Programm soll Gelegenheiten zur Testwiederholung 
bieten. 


Besondere Schwierigkeiten tauchen bei der Problemana- 
lyse desweiteren nicht auf. 
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(3) SCHRITT \ Flußdiagramm 


ev. Tausch 
D.mit E 


Zufalls- 
auswahl 


Ausgabe 
korrekte 
Antwort 
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(a)schrirt : Programm 


REM S3-VOKABELTEST 
CS 
FRINT"FROGRAMM ZUM ABFRAGEN VON VOKABELN." 


BQ„ARINT:PRINT"HIER ı DEUTSCH/ENGLISCH ODER UMGEHE 


50 PRINT:PRINT:FRINT TAB(9) "FROF.DR.W.VOSS, 1984" 

60 FRINT:FRINT:PFRINT:FRINT 

70 FRINT"IM DATENBESTAND DIESES FROGRAMMS BEFIN-" 

80 FRINT"DEN SICH NUR 10 VOKABELN. ":FRINT 

90 FRINT"SOLL DAS FROGRAMM AUSGEWEITET WERDEN," 

100 FRINT"SO MUESSEN IN 1000 FF.WEITERE DATA-STA-" 

110 PRINT"TEMENTS ANGEFUEGT UND DER WERT FUER N" 

120 PRINT"IN STATEMENT 160 GEAENDERT WERDEN. " 

130 LOCATE 5,25: FRINT"BITTE EINE TASTE DRUECKEN !" 

140 A#=INKEY$:IF At="" THEN 140 

150 CLS:PRINT"MOMENT BITTE" 

160 N=10 

170 DIM D$(N,2) 

180 FOR I=1 TO N:READ D$(I,1),D&(I,2):NEXT I 

185 ZZ=1 

190 CLS 

200 FRINT"DEUTSCH/ENGLISCH a" 

210 FRINT=:FRINT:FRINT"ODER" 

220 PRINT:FRINT:FRINT"ENGLISCH/DEUTSCH a 
FRINT:FRINT:FRINT"BITTE 1 ODER 2 EINGEBEN ":PR 


INFUT" "ıZ 
IF 2Z<>2Z THEN GOSUB 3000:REM TAUSCH 
ERINT:PRINTZFRINT"WIEVIELE VOKABELN SOLLEN GEF 


INFUT "DEN "3; 
GOSUB Z000 
FRINT: INFUT "NOCHMAL. 7 (J/N) "3A 
IF At="J" THEN CLS:2Z2Z=2:60T0 200 
FRINT:FRINT"ENDE DER AUSGABE" :END 
FRINT=FRINT:FRINT: INFUT"NOCHMAL 7 (J/N "HAF 
IF At="J" THEN CLS:60T0 200 
FRINT:FRINT"ENDE DER AUSGABE" :END 

1EeeRAdR LAUFEN „RUN, SCHREIBEN,WRITE „DRUCKEN,FRINT 


dBrBRER WENN, IF ,„UNTERFROGRAMM, SUBROUTINE „RECHNER 


10 
‚C 

gögg, DATA ZEICHEN, CHARACTER, BILDSCHIRM, SCREEN, TAST 
‚E 
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2000 CLS 

2005 K=0 

2010 I=1 

2020 R=INT(RND (1) #N+1) 

2030 FRINT DF(R,1)3:INFUT" ANTWORT 2 "WE 


5, EEE "BER, HN serie FRINT:FRINT:FRINT TA 


2050 FRINT:FRINT:FRINT"DAS WAR LEIDER FALSCH." 
5960 FRINT=FRINT"RICHTIG MUSS ES HEISSEN : ";D$(R, 


2070 FRINT:FRINT:PRINT: I=I+1 
2080 IF I«=A THEN 2020 

2090 KA=(K/A)*100 

2409 FRINTSPRINT"ANTEIL KORREKTER ANTWORTEN : ";KA 


2110 RETURN 

3000 REM UF TAUSCH 

2010 FOR I=1 TON 

2020 H#=D#(I1,1):D#(1I,1)=D#(1,2):D#$(1,2)=H# 
3030 NEXT I 

3040 RETURN 


(5) schritt ı  Variablenliste 


Anzahl der zu prüfenden Vokabeln 


Antwortstring 


Vokabeln 
Hilfsfeld beim Tausch in UP 3984 


Laufindex 

Anzahl korrekter Antworten 

Anteil korrekter Antworten 

Anzahl der Vokabeln im Datenbestand 
Zufallszahl 


Antwort des Benutzers 
Ziffernantwort im Menü 


Hilfsgröße (auf 1 gesetzt) für den eventuellen 


Tausch Deutsch-Englisch 
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SCHRITT ! Programmbeschreibung 


Überschrift, Erläuterungen und Hinweise 
auf die eventuelle Verlängerung des Pro- 


gramms 


138-15% : Warten, Läschen des Bildschirms und 


Hinweis auf die Einlesedauer 


168-188 : Angabe der Zahl der Vokabeln im Daten- 


bestand, Dimensionieren und Einlesen 
185 Belegung der Hilfsvariablen 22 mit 1 
198-248 : Löschen des Bildschirms, Ausgabe des 

Menüs und Anforderung der Benutzeraus- 


wahl 


Abfrage, ob Menü 1 gewählt wurde 


wenn nein, Sprung ins UP 3gd# 
wenn ja, weiter bei 25@ 


Anforderung der Anzahl der zu testenden 
Vokabeln 


27% Sprung ins UP 298# 


448-424 Abfrage, ob noch ein Test (zurück zu 
Satz 286) und Beendigung des Programms 


1888-1828: Daten 
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Satz 2@dd-211% : UP Zufallsauswahl : 


2885-2818 : Zähler K und I auf Anfangs- 
positionen 

262% : Zufallszahl 

283% : Ausgabe der Vokabel und An- 
forderung der Antwort 

2846 : Bei korrekter Antwort er- 
folgt Sprung nach 2979 

2#5@-286% : Fehlermeldung und Ausgabe 
der korrekten Antwort 

2678-2984 Nächste Vokabel 

298-2188 : Ausgabe des Erfolgsanteils 

2118 Rücksprung 


Satz 3@@9-3949 : UP Tausch 


Tausch Deutsch-Englisch - Englisch- 
Deutsch 


(7) schritt \ Ergebnisse 


Ergebnisse brauchen hier nicht vorgestellt zu werden. 


Was im Laufe des Programmablaufs an Ergebnissen ausge- 
geben wird, ergibt sich unmittelbar aus der Programm- 
beschreibung (siehe insbesondere Satz 2%48 bis Satz 


218B). 
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5 e) Das Sortieren von Vokabeln 
[2 


(1) SCHRITT ‘ Vorstellung des 


Problems 


Das Sortieren von Datenbeständen ist eines der 
wichtigsten Einsatzgebiete von Rechnern. Das gilt so- 
wohl für das Sortieren von Zahlen als auch für das al- 
phabetische Sortieren von Begriffen oder allgemein von 
Strings. 


Es gibt eine ganze Reihe unterschiedlicher Sortieralgo- 
rithmen, die sich vor allem letztlich in der Sortier- 


geschwindigkeit voneinander unterscheiden. 


Dieser Aspekt der Rechengeschwindigkeit soll hier nicht 
interessieren - vielmehr wollen wir einen Algorith- 
mus vorstellen, der besonders klar den wesentlichen 
Grundgedanken, dem jeder Sortierprozeß folgen muß, zum 
Ausdruck bringt. 
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(2) SCHRITT : Problemanalyse 


"Sortieren" bedeutet, daß wir je zwei Strings aus einem 


Datenbestand miteinander vergleichen : 


Wir vergleichen den ersten Schritt für Schritt mit allen 
übrigen Strings. Folgt dabei der erste String im Alpha- 
bet hinter dem zweiten, dann müssen die beiden gerade 


verglichenen Strings getauscht werden. 


Dadurch wird erreicht, daß dann, wenn der erste String 
mit allen übrigen verglichen wurde (nach der ersten 
Runde also), an der ersten Stelle nun derjenige String 
steht, der im Alphabet als erster kommt. 


Dann vergleichen wir den jetzt an zweiter Stelle ste- 

henden String mit allen übrigen (außer mit dem ersten 

String). Auch hier wird wieder getauscht, wenn es er- 

forderlich ist. Am Schluß der zweiten Vergleichsrunde 

steht dann an der zweiten Stelle derjenige String, der 
im Alphabet tatsächlich an zweiter Stelle kommt. 


Dann vergleichen wir den jetzt an dritter Stelle ste- 


henden String mit allen übrigen ... usw. 


Es werden insgesamt so viele Runden durchlaufen, wie 
überhaupt Vergleiche möglich sind. Haben wir beispiels- 
weise fünf Strings zu sortieren, so müssen vier derar- 
tige Runden durchlaufen werden : In der ersten Runde 
gibt es vier Vergleiche, in der zweiten Runde drei, 

in der dritten Runde zwei und in der vierten Runde 
noch einen Vergleich. 
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Schematisch sieht dies folgendermaßen aus : 


1. Runde : Vergleich Feld mit Feld 
Vergleich Feld mit Feld 
Vergleich Feld mit Feld 
Vergleich Feld mit Feld 


Vergleich Feld 2 mit Feld 
Vergleich Feld 2 mit Feld 4 
Vergleich Feld 2 mit Feld 5 


Vergleich Feld 3 mit Feld 4 
Vergleich Feld 3 mit Feld 


4. Runde : Vergleich Feld mit Feld 


Es ist dabei zu beachten, daß nach den ersten Verglei- 
chen die Inhalte der Felder immer andere sein können, 
je nachdem, ob und an welchen Stellen getauscht werden 


mußte, 
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(5) SCHRITT H Flußdiagramm 


(Tausch) 


Ausgabe 
X(I) 


Ausgabe 
X(I) 
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©) SCHRITT : Programm 


Im Gegensatz zu dem im vorängegangenen Flußdiagramm 
vorgesehenen Ablauf ist hier im Programm zusätzlich 
vorgesehen, daß der Benutzer entscheiden kann, ob er 

die deutsch-englischen Vokabeln alphabetisch nach der 
deutschen Schreibweise oder nach der englischen Schreib- 


weise sortieren möchte : 


10 REM S54-SORT 
20 CLS 
RO „PRINT TAB (2) "PROGRAMM ZUM SORTIEREN VON VOKABEL. 


40 FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 

50 FRINT:FRINT:FRINT:FRINT 

60 FRINT"IN DIESEM FROGRAMM WERDEN NUR 10 ENGLI-" 

70 FRINT"SCHE VOHABELN SORTIERT.":FRINT 

80 FRINT"SOLLEN ANDERE VOKABELN SORTIERT WERDEN," 

90 FRINT"SO MUESSEN DIE DATA IN 500 FF. UND N IN" 

100 FRINT"SATZ 150 GEAENDERT WERDEN. " 

110 LOCATE 5,23 

120 FRINT"BITTE EINE TASTE DRUECHKEN !" 

130 A$=INKEYF:IF Af="" THEN 130 

140 CLS 

150 N=10 

160 DIM E$#(N) ,D# (N) 
FOR I=1 TO N:READ E#(I),D#E(I):NEXT I 
FRINT"SOLL NACH DEN ENGLISCHEN ODER NACH DEN" 
FRINT"DEUTSCHEN VOKABELN SORTIERT WERDEN 7" 
FRINT: INFUT"GIB E ODER D EIN : ";A# 
IF At="D" THEN 240 
CLS:FRINT"ENGLISCH" 3 TAB (20) "DEUTSCH": FRINT:FRI 


GOSUB 1000:REM UF SORT 
G0OTO 270 
FOR I=1 TO N:H$=E£ (IT) :EFCIT)=DE CI) DEI) =H$:NEX 


ECLS:FRINT"DEUTSCH" 5; TAB (20) "ENGLISCH": FRINT:FRI 


GOSUB 1000:REM UF SORT 
FRINT:FRINT"ENDE DER AUSGABE": END 
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500 pATA FRINT,DRUCKEN,WRITE ,SCHREIBEN,END,ENDE , GO 
‚GEH 


a gaTa RUN,LAUFEN ‚DATA DATEN , SUBROUTINE ,„UNTERFRO 


520 DATA INFUT,EINGABE ‚SAVE ,SFEICHERN,LOAD,LADEN 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


REM UF SORT 

FOR I=1 TO N-1 

FOR J=I+1 TON 

IF E#(I)<=E#(J) THEN 1070 
H$=E$# (I) :G#=D# (I) 
E$(I)=EF(J)EDECI)=DE(I) 
E#(J)=HF:DE(J)=6GF 

NEXT J 

FRINT E#(I);TAB(20)DE(T) 
NEXT I 

FRINT E$(I);TAB(ZO)D#(I) 
RETURN 


(5) SCHRITT Variablenliste 


Stringvariable für Antworten 


Deutsche Vokabeln 
Englische Vokabeln 
Hilfsfeld1 
Hilfsfeld2 


Laufvariable 
Laufvariable 
Anzahl der Vokabeln 
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SCHRITT ı  Programmbeschreibung 


18-118 


128-148 


158-178 


188-218 


258 


26% 


278 


58#-52% 


Überschrift und Erläuterungen 


Warten und Löschen des Bildschirms 


Angabe der Zahl der Vokabeln, Dimensio- 


nierung und Einlesen der Vokabeln 


Abfrage, ob nach deutschen oder nach 


englischen Worten sortiert werden soll 


falls nach deutschen Worten, weiter bei 
278; andernfalls weiter bei 229 


Ausgabe einer Tabellenüberschrift 


Sprung ins UP 1@$8 zum Sortieren 


Sprung zum Satz 278 


Austausch der deutschen und der engli- 
schen Vokabeln 


Ausgabe einer Tabellenüberschrift 


Sprung ins UP 1988 zum Sortieren 


Beendigung des Programms 


Daten 
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Satz 1ddd-111$ : UP Sortieren 


Unterprogramm zum Sortieren von 
Strings : 


1818 Rundenzähler 
162% Vergleichszähler 
183% Vergleich 
fällt er befriedigend aus, 


weiter bei 1878, sonst 
weiter bei 1949 

1848-1868 : Tausch 

1678 : Nächster Vergleich 

188% : Nachdem kein Vergleich 
mehr möglich ist, Ausgabe 
der beiden nun an erster 
Stelle stehenden Strings 


1898 Nächste Runde 
1188 : Ausgabe des letzten String- 
paares 


1118 : Rücksprung 


(7) schritt ı Ergebnisse 


Wünschen wir beispielsweise die Sortierung nach den 
deutschen Vokabeln, so erhalten wir 


DEUTSCH ENGLISCH 


BEKOMMEN GET 
DATEN DATA 
DRUCKEN PRINT 
ENDE END 
GEHEN Go 
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Kapitel 6 : Biologie/Öökologie 


6 1 Vorbemerkung 


Der Rechnereinsatz bei biologisch-ökologischen 
Problemen bezieht sich insbesondere darauf, Entwick- 
lungs- und Wachstumsvorgänge zu simulieren (natürlich 
könnten aber auch Abfrageprogramme nach dem Muster des 
vorangegangenen Kapitels entwickelt werden). Diese Ent- 
wicklungen können dann auf dem Bildschirm tabellarisch 


oder auch graphisch ausgegeben werden. 
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6 2 Ungebremstes Wachstum 
[2 


2) SCHRITT H Vorstellung des 
Problems 


Eine Population mit dem Anfangsbestand X 
wachse mit einer jährlichen Wachstumsrate von R Pro- 
zent. (R sei positiv). Wenn dieses Wachstum nicht an 
äußere Grenzen stößt - was aber auf lange Sicht na- 
türlich sehr unwahrscheinlich ist - dann stellt sich 
ein sog. exponentielles Wachstum ein. 


Der Ablauf eines solchen sehr einfachen Wachstumspro- 
zesses soll durch ein BASIC-Programm simuliert werden. 


(2) SCHRITT ! Problemanalyse 


Für das entsprechende Programm müssen der Anfangsbe- 
stand und die jährliche Zuwachsrate eingegeben werden. 


Nach einem Jahr erhält man dann den Bestand X1 : 


xl = xXB + XötR/1d68 = XB*l1 + R/1d8) 


Nach zwei Jahren ergibt sich X2 : 


= X1*(1 + R/1BB) =. Xb* (1HR/1BB) *(1+R/1WR) 
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Daraus folgt 
2 
= .xX8 * (1 + R/189) 
Generell gilt deshalb nach T Jahren 
T 
= .x8 * (1 + R/198) 


Diese Formel zeigt den Rechenalgorithmus für das ent- 


sprechende BASIC-Programm. 


© SCHRITT H Flußädiagramm 


Ausgabe 
I und XT 
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(a) schkirt : Programm 


10 REM Bi-WACHSTUM 

20 CLS 

20 FRINT"FROGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 
40 FRINT TAB (8) "UNGEBREMSTEN WACHSTUMS. " 

50 FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
60 FRINT:FRINT:FRINT:FRINT 

70 INFUT"ANFANGSBESTAND 2 "X0 

80 FRINT: INFUT"WACHSTUMSRATE IN % = ";R 

90 FRINT: INFUT"ANZAHL DER JAHRE won; 

In8 CLS:FRINT"NACH „.. JAHREN BESTAND": FRINT:FR 


110 I=1 

120 XT=X0* (1+R/100)“I 

130 FRINT TAB(S)1;TAB(19) USING "RHHRa.HE":XT 

140 I=I+1 

145 1 10 =_INT(I/10) THEN FRINT:FRINT"BITTE CON 
+Eınbehent. sth 


150 IF I<i=T THEN 120 

160 FRINT:FRINT: INFUT"NOCHMAL 7 (J/NI "sAF 
170 IF At="J" THEN CLS:G0T0 70 

180 FRINT:FRINT:FRINT"ENDE DER AUSGABE ":END 


(5) schritt , Variablenliste 


Antwortstring (Ja,Nein) 
Laufindex 


Wachstumsrate in % 
Zeit 


Anfangsbestand 
Bestand zum Zeitpunkt T 
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Abschnitt ® Wachstum 


SCHRITT ' Programmbeschreibung 


Überschrift 


Vorgabe der Input-Informationen, die 


das Programm benötigt 

Ausgabe einer Tabellenüberschrift 
Vorgabe der ersten Periode 
Berechnung ues jeweiligen Bestandes 
Ausgabe 

Übergang zur nächsten Periode 


Nach jeder zehnten Periode wird das 
Programm unterbrochen (also dann, wenn 
I durch 18 ohne Rest teilbar ist); 
Fortsetzung ist nur mit dem Kommando 
.CONT möglich, deshalb ein entsprechen- 
der Hinweis 


Solange I kleiner gleich T ist, ist uas 
Programm fortzusetzen (Satz 129) 


Satz 168-189 Beendigung des Programms, es sei denn, 
es wird ein zusätzlicher Programmlauf 
gewünscht (dann nach Löschen des Bild- 
schirms zurück zu Satz 79) 


Voß Kapitel Biologie/ökologie 


Abschnitt Wachstum 
Schule 


(7) schritt ! Ergebnisse 


Geben wir z.B. als Anfangsbestand den Wert 588 ein, 
als Wachstumsrate den Wert 4 (%) und als Zeitdauer 
den Wert 8 (z.B. Jahre), so erzeugt das Programm die 


folgende Ausgabe : 


NACH .„.. JAHREN BESTAND 


529 
549.8 
562.43 
584.93 
688.33 
632.66 
657.97 
684.28 


1 
2 
3 
4 
5 
6 
7 
8 


NOCHMAL 
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Abschnitt Gebremstes Wachstum 
Schule 


6.3 Gebremstes Wachstum 


(2) schritt ı Vorstellung des 
Problems 


Exponentielles Wachstum, wie es im vorangegan- 
genen Abschnitt vorgestellt wurde, gibt es in der Reali- 
tät praktisch nicht oder nur in sehr beschränkten Zeit- 
abschnitten. Es muß vielmehr mit hemmenden Effekten ge- 
rechnet werden, die in der Regel um so stärker werden, 
je größer die Werte der interessierenden Variablen schon 
geworden sind. 


Man denke beispielsweise daran, daß eine exponentiell 
wachsende Bevölkerung sehr rasch an Ernährungsgrenzen 
stößt, die dem weiteren Wachstum immer größere Hemmnis- 


se auferlegen. 


Eine solcherart "gedämpfte" Entwicklung soll im folgen- 


den BASIC-Programm simuliert werden. 
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Abschnitt Gebremstes Wachstum 
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(2) SCHRITT B Problemanalyse 


Die Problemanalyse führt hier zu einem ähnlichen Lö- 


sungsweg wie im vorangegangenen Abschnitt : 


Zunächst gilt auch hier, daß Ausgangswerte benötigt 


werden 


Ausgangsbestand 
Jährliche Zunahmerate (in %) zu Beginn 


des Entwicklungsprozesses 


Im Gegensatz zum Beispiel zuvor gehen wir jetzt aber 
davon aus, daß die jährliche Zunahmerate nicht kon- 
stant bleibt, sondern um so kleiner wird, je größer 


die Population schon geworden ist. 


Da die Population im Zeitablauf wächst, können wir in 
einem sehr einfachen Denkmodell also einfach davon aus- 
gehen, daß die Zuwachsrate mit fortschreitender Zeit ab- 
sinkt. Beispielsweise können wir die Zuwachsrate bei 
Verdopplung der Zeit halbieren, bei Vervierfachung der 


Zeit auf ein Viertel zurückgehen lassen usw. 


Natürlich lassen sich auch andere mathematische Modelle 
vorstellen, um diesen Bremsvorgang zu simulieren - 
darauf kommt es aber ja in diesem Zusammenhang nicht 


entscheidend an. 


Den so beschriebenen Rechenalgorithmus können wir ma- 


thematisch folgendermaßen fassen 


Kapitel ı Biologie/Ökologie 
Abschnitt . Gebremstes Wachstum 


* (1 + R/I) 


Das heißt, der Bestand der folgenden Periode X1 berech- 
net sich aus dem der vorhergehenden Periode X$ so wie 
im letzten Beispiel; die Wachstumsrate aber wird durch 
den Laufindex I dividiert, so daß sie um so kleiner 
wird, je höher I wird, d.h. je\weiter die Zeit schon 
fortgeschritten ist. 


(5) SCHRITT \ Flußdiagramm 


Eingabe 
Xd, Rß,T 


Berechne 
xT 
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Ca) swir I. ERSIERER 
10 REM BZFGEBREMSTES WACHSTUM 


20 CLS 
30 PRINT"FROGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 
g0 „PRINT TAB(2) "EINES GEBREMSTEN WACHSTUMSFROZESSE 


50 FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
60 FRINT:FRINT:FRINT=:FRINT:FRINT 

70 INPUT"ANFANGSBESTAND = "2XO 

80 FRINT: INFUT"W.RATE IM 1.JAHR (%) 

85 FRINT: INPUT"WIEVIELE JAHRE 

90 CLS 

120 RBINLINSCH „.. JAHREN BESTAND ZUWACHS (%)" 


110 I=1 
120 X1=X0+X0# (R/I)/100 
140 Z=(X1-X0)/X0:2Z=2#100 


ATOTBEING, TORIRATATRRGIGA „USING Tannen. anna are 


160 X0=X1:1I=I+t1:IF I<i=T THEN 120 

180 FRINT: INFUT"NOCHMAL 7 (J/N) "zAF 
190 IF A#="J" THEN CLS:G0TO 70 

200 FRINT:FRINT"ENDE DER AUSGABE'":END 


(5)) schritt : Variablenliste 


Antwortstring (Ja, Nein) 
Laufindex (Anzahl der Perioden) 
Wachstumsrate zu Beginn des Prozesses 


Zeitdauer des Prozesses 


Anfangsbestand., 
Bestand nach einer Periode 


Bestandsveränderung 
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Abschnitt Gebremstes Wachstum 
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SCHRITT ' Programmbeschreibung 


18-68 : Überschrift und Erläuterungen 


76-98 Anforderung der Ausgangsdaten und Lö- 
schen des Bildschirms 


Satz 198 ; Ausgabe einer Tabellenüberschrift 
Satz 119 : Vorgabe des Periodenzählers 


Satz 128-15$ : Berechnung des Periodenbestands, des 
Zuwachses und Ausgabe der entsprechenden 
Werte nach Rundung auf zwei Dezimalstel- 


len 


Belegung von X@ mit X1 und Fortführung 
der Berechnungen, solange I nach Erhö- 
hung um 1 kleiner als der vorgegebene 


Zeitwert T bleibt 


188-268 : Abfrage, ob noch eine Berechnung gewünscht 
(wenn ja, zurück nach 78) und Beendigung 


des Programms 
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(7) SCHRITT \ Ergebnisse 


Geben wir zum Beispiel als Anfangsbestand den Wert 58% 
ein, und als Zuwachsrate im ersten Jahr den Wert 4 % 
una schließlich die Angabe, daß der Prozeß 8 Jahre aau- 


ern soll, so erhalten wir : 


NACH ... JAHREN BESTAND ZUWACHS (%) 


52% 
538.4 
537.47 
542.84 
547.18 
559.83 
553.98 
556.75 


1 
2 
3 
4 
5 
6 
7 
8 
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Abschnitt 4 , Umweltverschmutzung 
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6) ER Umweltverschmutzun 


Problems 


(4) SCHRITT Vorstellung des 


Wachsende Populationen hemmen in der Regel 
ihre weitere Entwicklung selbst, nämlich dadurch, daß 
sie ihre Lebensbedingungen in zunehmendem Maße bela- 


sten. 


Typisches Beispiel ist düe zunehmende Umweltverschmut- 


zung während der Industrialisierungsphasen. 


Also auch hier tritt eine "Wachstumsbremse" zutage - 
ähnlich wie im vorangegangenen Abschnitt - die das un- 
gebrenste Wachstum, wie wir es in Abschnitt 6.2 kennen- 


gerlernt haben, modifiziert. 


Im Gegensatz aber nun zum Beispiel im vorangegangenen 
Abschnitt, wirkt diese "Bremse" nicht in Abhängigkeit 
von der Populationsgröße selbst, sondern indirekt in 
Abhängigkeit von einer Variablen, die ihrerseits pro- 


portional mit «der Populationsgröße zusammenhängt. 
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(2) schritt : Problemanalyse 


Die Population in der Periode 1 ergibt sich aud der 
der Periode & jetzt nicht mehr als 


x1 xd + Xd * R/108 


sondern als : 


x1 Xd + X8 * (R/1d8 - P*BQ) 


Dabei ist Bd die Umweltbelastung zum Zeitpunkt g, die 
über einen geeigneten Parameter P (z.B. in der Größen- 


oränung P = 8.81) die Populationszuwächse bremst. 


Natürlich brauchen wir jetzt aber auch eine funktionale 
Beziehung, welche die Größe B1 (Umweltbelastung in der 


Periode 1) in Abhängigkeit von Bß und X@ erklären kann. 


Als Beispiel einer solchen Beziehung mag gelten 


+ A* X 


Von einer Belastungsgröße von z.B. Bd = & ausgehend, 
wächst die Belastung in Abhängigkeit von der erreichten 
Populationsgröße nach Maßgabe eines geeignet festzu- 
setzenden Parameters A (z.B. A = 8.815). 


Somit gilt also der folgende Algorithmus : 


(1) B1 Bö + A*Xo 


x1 xXd + XB * (R/1dB - P*B1) 


Kapitel Biologie/Ökologie 
Abschnitt Umweltverschmutzung 


Flußdiagramm 


Berech 
nungen 
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(W) schritt Programm 


10 REM B3-UMWELT 
20 CLS 
30 PRINT"FROGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 


AR FRINT TAB(2) "EINES WACHSTUMSFROZESSES, DER DURC 


50 FRINT TAB(2) "SEINE EIGENE DYNAMIK GEBREMST WIRD 


GB.ERINTEPRINTEPRINTEPRINT TAB (9) "FROF.DR.W.VOSS, 


70 PRINT:FRINT:FRINT:FRINT 

80 FRINT"DIESES FROGRAMM BENOETIGT DIE FOLGENDEN" 
90 FRINT"AUSGANGSINFORMATIONEN : ":FRINT 

100 FRINT: INFUT"AUSGANGSBESTAND = "3X0 
105 FRINT: INFUT"WIEVIELE JAHRE  "sT 
110 FRINT: INFUT"JAEHRL. WACHSTUMSRATE (%) =: ";R 
120 PRINT: INFUT"FAKTOR UMWELTBELASTUNG ";P 
130 CLS 

120 KBINEARTT BESTAND ZUWACHS (%) BELASTUNG" 


150 I=1:A=0.015:BO=0 

160 Bi1=BO+A#rXO 

170 X1=X0+X0* (R/100-P*BO) 

12drär„24°=° THEN FRINT"FOFULATION IST VERNICHTET" 


180 Z=(X1-X0) /X0:27=Z7%*#100 


90 ERINT TAB(2) 15TAB(7Z) USING "Hat. 4"; XI; PRIN 
GERINT EEE RT nn 


195 FRINT TAB(2Z9) USING "#HHHHH. #4"; Bl 

200 I=I+1:IF Ii=T THEN BÖö=B1:X0=X1:60T0 140 
210 FRINT:PRINT: INFUT"NOCHMAL 7 (J/ND "zAF 
220 IF A$="J" THEN CLS:G60TO 80 

230 FRINT:FRINT"ENDE DER AUSGABE" :END 


Kapitel Biologie/Öökologie 
Abschnitt Umweltverschmutzung 


(5) schkirt ‘ Variablenliste 


Faktor populationsbedingte Umweltbelastung 
Stringvariable (Ja, Nein) 

Umweltbelastung Anfang 

Umweltbelastung nächste Periode 

Laufindex 

Faktor Umweltbelastung 

Jährliche Wachstumsrate 

Zeit 

Population Anfang 

Population nächste Periode 


Populationszuwachs. 


SCHRITT \ Programmbeschreibung 


18-78 : Überschrift und Erläuterungen 
84-128 : Anforderung der Inputinformationen 


138-148 Löschen des Bildschirms und Ausgabe einer 
Tabellenüberschrift 


158 : Vorgabe weiterer Ausgangsparameter 
168-178 : Berechnungen für die folgende Periode 


175 : Wenn die neu berechnete Population klei- 


ner oder gleich null wird, ist eine 
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188 


198-195 


268 


218-239 


entsprechende Meldung auszugeben und 
Sprung zum Satz 21% 


Berechnung von Z 


Ausgabe der Periodenergebnisse 


Erhöhung des Laufindex I 


solange I kleiner als T bleibt, wird 
Xd mit X1 und B@ß mit B1 belegt und das 
Programm kehrt zurück zum Satz 169 


Abfrage, ob eine weitere Berechnung ge- 
wünscht wird (wenn ja, Löschen des 
Bildschirms und zurück zu Satz 89) und 
Beendigung des Programms 


Voß Kapitel ® Biologie/ökologie 
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(7) SCHRITT : Ergebnisse 


Geben wir als Ausgangsbestand z.B. den Wert 1gg®, als 
Zeithorizont 8 Jahre, als jährliche Wachstumsrate 5 % 
und als Faktor der Umweltbelastung z.B. den Wert $.91 


ein, so erhalten wir die folgenden Angaben : 


ZEIT BESTAND ZUWACHS % BELASTUNG 


185# 15 

945 38.75 
781.66 44.93 
421.52 55.45 
268.87 61.77 
98.29 64.91 
36.28 66.26 
14.82 66.89 


1 
2 
3 
4 
5 
6 
7 
8 


NOCHMAL (J/N) 
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7. 1 Vorbemerkung 


Es können in diesem Kapitel ähnliche Programme 
erstellt werden wie im Kapitel "Sprachen", also vor al- 
lem Test- und Abfrageprogramme. Auch hier werden wir uns 
dabei auf exemplarische Datenbestände beschränken, d.h. 
es wird nur gezeigt, wie die Programme aufgebaut werden 


müssen und wie sie dann funktionieren. 


Sollen sie praktisch genutzt werden, müssen erst, wie 
unschwer zu Sehen ist, die koupletten Datenbestände 
erzeugt und eingegeben werden, Dazu müssen die DATA- 
Statements ergänzt und die jeweilige Vorgabe von N 


entsprechend geändert weruen. 
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7] 2 Historische Jahreszahlen 


(1) SCHRITT Vorstellung des 
Problems 


Es soll ein Programm vorgestellt werden, wel- 
ches dazu benutzt werden kann, das Erlernen historischer 
Jahreszahlen zu erleichtern und die erlernten Daten zu 
trainieren. 


Zu diesem Zweck stellt der Rechner dem Benutzer histo- 
rische Ereignisse vor und verlangt von ihm, daß er die 
korrekte Jahreszahl dieses geschichtlichen Ereignisses 
angibt. Es bleibt dabei dem Benutzer überlassen zu ent- 
scheiden, wieviele Fragen er sich pro Testserie vom 


Rechner stellen lassen möchte. 


Gibt der Benutzer üie korrekte Antwort, so reagiert der 
Rechner mit Lob; erhält er hingegen keine korrekte Ant- 
wort, so soll er den Benutzer fragen, ob dieser noch 
einen Versuch wagen möchte. Wird dies abgelehnt, soll 
das Programm dafür sorgen, daß die korrekte Antwort 

auf dem Bildschirm erscheint. 
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(2) schritt Problemanalyse 


Die Vorstellung des Problems hat schon hinreichend ver- 
deutlicht, wie bei diesem Programm im einzelnen vorzu- 
gehen ist : 


Wir benötigen einen Informationseingabeteil, der Benut- 
zer muß gefragt werden, wieviele Abfragen er über sich 
ergehen lassen möchte und das Programm muß die jeweils 
gegebenen Antworten prüfen. Desweiteren tauchen keine 
besonderen Schwierigkeiten auf. 
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Ausgabe 
korrekte 
Zahl 
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(4) schritt s Programm 
REM Ei1-JAHRESZAHL.EN 
CLS 
FRINT"FROGRAMM ZUM ABFRAGEN HISTORISCHER DATEN" 
FRINT=:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
FRINT=:FRINT:FRINT:EFRINT 
FRINT"DIESES FROGRAMM BEZIEHT SICH NUR AUF 10" 
FRINT"AUSGEWAEHLTE HISTORISCHE DATEN (SIEHE" 
FRINT TAB(S) "DATA-STATEMENTS IN 500 FF.).":FRIN 


FRINT"SOLLEN MEHR DATEN VERWENDET WERDEN, SO" 
FRINT"MUESSEN DIE DATA ERGAENZT UND N IN SATZ" 
FRINT TAB(7)"150 VERAENDERT WERDEN." 

LOCATE 5,23 
FRINT"EITTE EINE TASTE DRUECKEN !" 
AF=INEEYF:IF At="" THEN 140 
N=10 
DIM J£(N) ,S#(N) 
ELS 
FOR I=1 TO N:READ J#(I),SF(I):NEXT I 
FRINT"WIEVIELE ABFRAGEN WERDEN GEWUENSCHT 7" 
FRINT: INFUT"BITTE ZAHL ANGEBEN : ";Z 
FOR I=1 TO 2 
2 R=INT(RND(1)*N+1) 

CLS 
FRINT=:FRINT"WANN WAR = ":FRINT 
FRINT SFR); :FRINT 
FRINT=:FRINT"IM JAHR : "3: 1INFUT K# 

za BET, THEN PRINT=FRINT TAB(P)"F RIM A" 


iR? FRINT:PRINT"DAS WAR LEIDER NICHT RICHTIG !":FR 


#79 ,ERINT:PRINT"NOCH EIN VERSUCH ? "3:=1INFUT" (J/ND 


280 IF A$="J" THEN 205 
2970 ERINT=:PRINT"DIE RICHTIGE JAHRESZAHL LAUTET : " 
3 &<R) 


300 FOR II = 1 TO Z2000:NEXT II: NEXT I 
nt? „PRINT: PRINT: PRINT"NOCH EIN TEST ?"3;:INFUT" (J/ 
’ 


320 IF At="J" THEN CLS:60T0 180 

330 FRINT:FRINT"ENDE":END 

500 DATA 1939,BEGINN DES ZWEITEN WELTERIEGS 

510 DATA 800,KAISERKROENUNG VON KARL DEM GROSSEN 
alle) 1949 ,GRUENDUNG DER BUNDESREFUEL.IE DEUTSCH 


530 DATA 9,SCHLACHT IM TEUTOBURGER WALD 
540 DATA 1832,HAMBACHER FEST 


: Erdkunde/Geschichte 
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DATA 1871,GRUENDUNG DES DEUTSCHEN EAISERREICHS 
DATA 1890 ,ERFINDUNG DER LOCHKARTE 

DATA 1812,NAFOLEON VOR MOSKAU 

DATA 17643,FRIEDE VON HUBERTUSBURG 

DATA 1495,REICHSTAG VON WORMS 


(5.) schritt \ Variablenliste 


Stringvariable für Antworten 
Laufindex 

Jahreszahlen 

Anzahl der Datensätze 
Zufallszahl 

Historische Sachverhalte 
Anzahl der Tests 


SCHRITT progranmbeschreibung 


18-128 : Überschrift und Erläuterungen 


138-148 : Warten 


158-17& : Vorgabe der Anzahl der Datensätze, Di- 
mensionieren, Löschen des Bildschirms 


und Einlesen der Daten 
188-19& : Anforderung der Zahl der Tests 
286-388 : Tests : 


Satz 2%2-24% : Zufallsauswahl eines hi- 
storischen Ereignisses und Anforderung 


der Jahreszahl als Antwort des Benutzers 


Satz 25% : Falls korrekt, Meldung und 


weiter bei 39% 


voß 


Schule 


Satz 3198-33 


Satz 5886-599 
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Satz 26$-28% : Falls nicht korrekt, Mel- 
dung und Frage, ob noch ein Versuch 


(wenn ja, zurück nach 295) 
Satz 29% : Wenn nein, korrekte Ausgabe 


Satz 38% : Warteschleife und dann zurück 
nach Satz 29®. 


Frage, ob noch ein Testlauf gewünscht; 


wenn ja, zurück zu Satz 188 nach Löschen 


des Bildschirms” 


wenn nein, Ende des Programms 


Daten 


(7) schritt ı Ergebnisse 


Die Ergebnisse brauchen hier nicht vorgestellt zu wer- 


den. Am sinnvollsten ist es, wenn der Leser unter Be- 
achtung der Inhalte der DATA-Statements das Programm 
einfach ausprobiert und es dann gemäß seinen eigenen 


Wünschen erweitert. 
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7 3 Die Hauptstädte der Länder 


SCHRITT ‚ Vorstellung des 
Problems 


Auch das Programm, das in diesem Abschnitt 
vorgestellt werden soll, ist ein sog. Trainingsprogramu. 
Der Benutzer soll auf die Fragen des Rechners Antwort 
geben. Gipt der Rechner zufällig ausgewählte Bundeslän- 
der vor, soll der Benutzer die Hauptstädte dieser Län- 
der eingeben; gibt der Rechner hingegen Hauptstädte vor, 


soll der Benutzer die dazugehörigen Bundesländer nennen. 


Insoweit bieten sich hier also keine neuen Probleme, 
so daß wir uns hier sehr kurz fassen können. Auch die- 


ses Programm hat also eher exemplarischen Charakter : 


Ohne Schwierigkeiten kann der Benutzer andere Sachver- 
halte in den DATA-Statements dieses Programns erfasssen 
und gelangt auf diese Weise zu einem generell einsetz- 
baren Abfrageprogramm, das für die verschiedensten 
Schulfächer verwendet werden könnte. 
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(2.) schritt '  Problemanalyse 


Es wurae schon erwähnt, daß hier keine neuen Probleme 
auftauchen, so daß dieser Schritt entsprechend kurz 
gehalten werden kann, Entsprechende Fragestellungen 


wurden in vorangegangenen Beispielen schon hinreichend 


diskutiert. 


© SCHRITT ' . Flußdiagramm 
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) SCHRITT \ Program 


REM EZ-LAENDER 
CcLS 
FRINT"FROGRAMM ZUR LERNKONTROLLE IM ERDEUNDE-" 
FRINT TAB(14) "UNTERRICHT." 
FRINT=:FRINT:FRINT TAB(9P) "FROF.DR.W.VOSS, 1984" 
FRINT:FRINT:FRINT:FRINT 
FRINT"DIESES FROGRAMM FORDERT NACH ANGABE DER" 
FRINT"DEUTSCHEN EUNDESLAENDER DEREN HAUFT-" 
FRINT"STAEDTE AN UND UMGEKEHRT. ":FRINT:FRINT 
FRINT"BEI ANDEREN VORGABEN VON DATEN IN DEN" 
FRINT"STATEMENTS 500 FF.UND AENDERUNG VON N" 
FRINT"IN SATZ 1&0 EANN DAS FROGRAMM AUCH FUER" 
FRINT"ANDERE ZWECKE VERWENDET WERDEN." 
LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEEN !" 
A$=INEEYF: IF Af="" THEN 150 
N=11 
DIM L£(N) ,S# (N) 
FOR I=1 TO N:READ L#(I),SFCI):NEXT I 
CLS 
FRINT"SOLLEN LAENDER ODER HAUFTSTAEDTE VORGE-" 
INFUT"GEBEN WERDEN (L/S) "zAF 
C#="HAUFTSTADT" 
IF At="5" THEN C#="LAND":GOTO 250 
GOSUB 1000:REM TEST 
GOTO 270 
FOR I=1 TO NeH&=L#(I):LFCI)=SF(I):SFCI)=HEINEX 


GOSUB 1000:REM TEST 

FRINT:FRINT: INFUT "NOCHMAL 7 (J/N) "sA#F 
IF A$="J" THEN CLS:RESTORE:GOTO 180 
FRINT:FRINT"ENDE":END 


Voß Kapitel 7 Erdkunde/Geschichte 


Abschnitt 3 Länder 
Schule 


22 ERPIREREN-FSWIS- HOLSTEIN,KIEL „HAMBURG , HAMBURG , 


R 
510 DATA BERLIN,BERLIN,NIEDERSACHSEN , HANNOVER 
DB NORDRHE IN-WESTFALEN „DUESSELDORF „HESSEN ,WI 


SEC ROTE SHEZNEADR- -FFALZ „MAINZ , SAARLAND , SAARBRUECEK: 


540 DATA BADEN-WUERTTEMBERG, STUTTGART 
1000 REM UF TEST 

1010 CLS 

1020 FRINT: INFUT"WIEVIELE ABFRAGEN : "37 
1030 FOR I=1 TO Z 

1040 R=INT(RND (1) #N+1) 


1950 ER ENTREREN UP FRINT: FRINT:PRINT C$;" 3 "; 


g080, BERFNTF AB NEN. FRINT:FRINT TAB(10O)"E OR R 


1070 FRINT:FRINT TAB(10) "FEHLER !":FPRINT 

1080 FRINT:FRINT"DIE RICHTIGE ANTWORT LAUTET : " 
1090 FRINT:FRINT TAB(10O)SF#(R) :FRINT 

1100 NEXT I 

1110 RETURN 


Voß Kapitel 7 .Erdkunde/Geschichte 


Abschnitt 3 ; Länder 
Schule 


6) SCHRITT : Variablenliste 


Stringvariable 

Hilfsvariable, die,je nach Auswahl,mit "Stadt" 
oder "Land" belegt wird 

Laufindex 

Länder 

Anzahl der Datensätze 

Städte 


SCHRITT f Programmbeschreibung 


Satz 18-13% : Überschrift und Erläuterungen 
Satz 148-158 : Warten 
Satz 168-1868 : Einlesen des gesamten Datenbestands 


Satz 198-218 : Abfrage, ob Länder oder Hauptstädte 


vorgegeben werden sollen 


228 : werden Städte gewählt, so wird die 
Hilfsvariable C& mit "Land" belegt 
und es erfolgt ein Sprung nach 25g 


Sprung ins Unterprogramm 1fßg, in 
dem der eigentliche Abfragetest durch- 


geführt wird 


voß Kapitel 7: Eräkunde/Geschichte 


Abschnitt 3: Länder 
Schule 


Sprung zum Satz 278. 


Austausch von Ländern und Städten, da- 
mit bei anderer Wahl in 1998-21 trotz- 
dem wieder das gleiche Unterprogramm 
verwendet werden kann 


26% : Wie Satz 239% 


276-298 : Abfrage, ob noch eine weitere Test- 
serie gewünscht wird (wenn ja, Löschen 
Ges Biläüschirms und zurück zu Satz 
18%, nachdem der Datenbestand restau- 
riert wurde - dies ist notwendig, 
um den eventuellen Tausch in 258 wie- 
der rückgängig zu machen, um also wie- 
der die Ausgangsbedingungen herzustel- 


len); andernfalls Ende des Programms 


Satz 548-548 Ausgangsäaten 


Satz 1ddd-111% : Unterprogramm Test : 


Programm zur Durchführung der gewünsch- 
ten Abfragen; die Einzelheiten ent- 
sprechen im Prinzip denen in Abschnitt 
7.2, so daß wir hier auf eine detail- 
liertere Beschreibung dieses Unterpro- 


gramms verzichten können 


Kapitel 7 : Eräkunde/Geschichte 
Abschnitt 3 : Länder 


(7) schritt , Ergebnisse 


Auch bei diesem Programm ist es nicht erforderlich, 
Die Durchsicht des Pro- 


Ergebnisausärucke vorzustellen. 
gramms oder besser noch das Ausprobieren zeigt sehr 


deutlich, was im einzelnen geschieht. 


voß Kapitel 7 : Erdkunde/Geschichte 


Abschnitt 4 : Bevölkerung 
Schule 


7 l, Die Bevölkerungsentwicklung in verschiedenen 
[3 


Nationen 


; Vorstellung des 
(2) schaut Problens 


Es soll in diesem Abschnitt ein Programm vor- 
gestellt werden, welches für verschiedene Länder die- 
ser Erde die Bevölkerungsentwicklung bis zum Jahre 
2888 prognostiziert. 


Als zu betrachtende Länder bzw. Ländergruppen haben 


wir ausgewählt : 
Welt (als alle Länder umfassend) 


Industrieländer 


Entwicklungsländer 


VR China 
Indien 
Japan 
USA 
UdSSR 


Bundesrepublik Deutschland 
DDR. 


Voß Kapitel 7 : Erdkunde/Geschichte 


Abschnitt 4: Bevölkerung 
Schule 


(2) SCHRITT : Problemanalyse 


Die geplanten Bevölkerungsprognosen machen es erfor- 
derlich, daß man sich für eine bestimmte Prognosemetho- 
de entscheidet. 


Es gibt eine große Zahl verschiedener Methoden, die im 


einzelnen nicht hier aiskutiert ‚werden können. 


Wir haben für Gas folgende Programm die Werte übernommen 
die sich bei den Modellprognosen ergeben haben, wie sie 
in dem Bericht GLOBAL 2888 (Washington 1988) veröffent- 
licht wurden. 


Aus diesen Daten berechnen wir zusätzlich die jahres- 
durchschnittlichen Wachstumsraten, um damit durch das 
Programm eine zusätzliche Information bereitstellen zu 
lassen. 


Unter programmlogischen Gesichtspunkten tauchen keine 
besonderen Schwierigkeiten auf, wenn man einmal davon 
absieht, daß wegen der Fülle der Ergebnisse an mehre- 


ren Stellen Programmunterbrechungen erforderlich sind. 


Voß Kapitel Erakunde/Geschichte 


Abschnitt Bevölkerung 
Schule 


(5) SCHRITT i Flußdiagramm 


Eingabe 
aller 
Daten 


Welt UP Wachs- 
I-Länder tumsrate 
E-Länder 


UP Wachs- 
tumsrate 


UP Wachs- 
tumsrate 


Ausgabe 
r 


voß 


Kapitel : Erdkunde/Geschichte 
Abschnitt : Bevölkerung 


Schule 


(Wu) schritt ı Programm 


10 REM E4-BEVOELKEERUNG 

20 CLS 

30 FRINT"FROGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 
40 FRINT"DER BEVOELKERUNGSENTWICKLUNG VERSCHIE-" 
50 FRINT TAB(12)"DENER LAENDER." 

60 FRINT:FRINT:FRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
70 DIM B(10,6),J(6) ,L# (10) ,WR(10) 

80 FOR I=1 TO s:READ J(II:NEXT I 

EI-FPR L=1 TO 10:FOR I=1 TO 6:READ B(L,I):NEXT I:N 


100 FOR L=1 TO 10:READ LF(L):NEXT L 

110 GOSUB 1000 : REM WARTEN 

140 FRINT"JAHR WELT I-LAENDER E-LAENDER" 
145 FRINT 

150 GOSUB 1200:REM STRICH 

160 FRINT 

170 FOR I=1 TO 6 


180_PR (ID); TAB(B)B(1,D;TAB(18)B(2,1); TAB(32)B 
180 SEANINT : we u 


190 NEXT I 

195 GOSUB 1200:REM STRICH 

200 FOR L=1 TO 3 

210 X=B(L,1):Y=B(L,6) 

220 GOSUB 1100:REM WACHSTUMSRATE 
230 NEXT L 


GRT-PRANDEERINEBOTER EN PRINT TAB (8)WR (1); TAB(18) 
2; 32 2) 


250 FRINT:GOSUB 1000:REM WARTEN 

260 CLS 

28 ARINT"IAHR CHINA INDIEN JAFAN USA UDSSR" 
:FRI 


280 GOSURB 1200:REM STRICH 
290 FOR I=1 TO & 
790, ERINT J(ID;3TAB(B8)B(4,I); TAB(14)EB(5,D);TAB(ZI)E 


’ ’ 
302 FRINT TAB(28)B(7,I); TAB(34)B(8,TD) :FRINT 
310 NEXT I 
>20 GOSUB 1200:REM STRICH 
330 FOR L=4 TO 8 
340 X=B(L,1):Y=B(L,6) 
350 GOSUB 1100:REM WACHSTUMSRATE 
360 NEXT L 
370 FRINT:FRINT"%"} 
ER N TORE TUR TFA URS) STABCEDWR (OH TA 


385 FRINT:FRINT 
390 GOSUB 1000:REM WARTEN 


voß 


Schule 


5 
Lei 
Ss; 
fe 
5 


45 


{n 
a cn 
[d Ere 


aeaen 


NdTe 
620 

1000 
010 
1020 
1030 
1040 


Kapitel 7 ® Erdkunde/Geschichte 
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ELS 
FRINT"JAHR  BUNDESREFUBLIK DDR": PRINT 
GOSUB 1200: REM STRICH 

FOR I=1 TO & 

PRINT J(I)5TAB(12)B(9,1); TAB(24)B(10,TD) :PRINT 
NEXT I 

GOSUR 1200:REM STRICH 

FOR L=9 TO 10 

X=B(L,1):Y=B(L,6) 

GOSUB 1100:REM WACHSTUMSRATE 

NEXT L 

FRINT"%"3:PRINT TAB(12)WR (9) ; TAB(24) WR (10) 
FRINT=PRINT"ENDE" END 

DATA 1975,1980,1985,1990,1995,2000 

REM WELT 

DATA 4134,4549,5013,5545,6143,6798 

REM INDUSTRIELAENDER 

DATA 1131,1174,1224,1276,1327,1377 

REM ENTWICKLUNGSLAENDER 

DATA 3003,3375,3789,4269,4816,5420 

REM VR CHINA 

DATA 978,1071,1151,1241,1348,1468 

REM INDIEN 

DATA 618,694,786,894,1013,1142 

REM JAPAN 

DATA 112,117,122,127,131,135 

REM USA 

DATA 214,222,235,248,260,270 

REM UDSSR 

DATA 254,268,282,296,310,323 

REM BRD 

DATA 61.8,61.7,60.0,58.6,57.8,56.2 

REM DDR 

DATA 16.8,16.7,16.6,16.4,16.2,16.1 

BATA "WELT" „" I-LAENDER" „ "E-LAENDER" „ "CHINA", "1 


DATA "JAPAN" „ "USA" , "UDSSR" „"BRD" "DDR" 
REM UF WARTEN 
LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN ! 


AF=INKEYF: IF A$="" THEN 1020 
CLS 
RETURN 


Voß Kapitel : Eräkunde/Geschichte 


Abschnitt : Bevölkerung 
Schule 


1100 REM UF WACHSTUMSRATE 

1110 R=EXF(LOG(Y/X) 7/25) -1 

1120 R=R#100:R=INT (R*100+0.5) /100 
1130 WR(L)=R 

1140 RETURN 

1200 REM UF STRICH 

1210 FOR I=1 TO 40:FRINT"-"3:NEXT I 
1220 FRINT: RETURN 


(5) SCHRITT \ Variablenliste 


Bevölkerung 
Laufindex 

Jahr 

Laufindex 

Länder 
Wachstumsrate 
Anfangswert (1975) 
Endwert (2989) 


SCHRITT s Programmbeschreibung 
18-68 : Überschrift 
78-188 : Einlesen aller Ausgangsdaten 
118 : Sprung ins UP 1ddd : Warten 
148-145 : Tabellenüberschrift 
158 Sprung ins UP 1288 : Unterstreichung 
168-198 : Ausgabe der Tabellenwerte 
286-238 : Bestimmung jahresdurchschnittlicher Zu- 


wachsraten für die Länder L=1,L=2 und 
L=3 


Kapitel 


: Erdkunde/Geschichte 


7 
Abschnitt 4 : Bevölkerung 


258 


26#-398 


468-494 
496 
588-628 
1888-1848: 


1188-1149: 


1288-1228: 


Satz 21 : Übernahme des Anfangs- und 
des Endwertes 

Satz 228 : Sprung ins UP 118 : Berech- 
nung der Wachstumsrate 


Ausgabe der Wachstunsraten 

Warten 

Gleiche Vorgehensweise wie in Satz 149 
-25% beschrieben, nun aber für die zwei- 
te Tabelle 

Entsprechend für die dritte Tabelle 
Beendigung des Programms 

Daten. 

Unterprogramm Warten 

Unterprogramm jahresdurchschnittliche 
Wachstumsrate (sie wird mit Hilfe der 
Logarithmenrechnung bestimmt, siehe 


Satz 1119) 


Unterprogramm Strich : 


Durch Aneinanderfügung von Minuszeichen 
wird auf dem Bildschirm ein Strich ge- 


zeichnet 


Voß Kapitel 7 *: Erdkunde/Geschichte 
Abschnitt 4 : Bevölkerung 


Schule 


© SCHRITT : Ergebnisse 


Dieses Programm erzeugt drei Tabellen nacheinander auf 
dem Bildschirm : 


1. Tabelle (Angaben in Millionen) 


I-LAENDER E-LAENDER 


BITTE EINE TASTE DRUECKEN 


Kapitel 7 : Erdkunde/Geschichte 
Abschnitt 4 : Bevölkerung 


2. Tabelle (Angaben in Millionen) 


JAHR CHINA INDIEN 


BITTE EINE TASTE DRUECKEN ! 


3. Tabelle (Angaben in Millionen) 


JAHR BUNDESREPUBLIK 


voß 


Kapitel 8 . Wirtschaft 


Abschnitt 1 ; Vorbemerkung 


Schule 


8 1 Vorbemerkung 
. 


Das wesentliche Einsatzgebiet der Rechner 
war lange Zeit der wirtschaftliche und speziell der 
betriebliche und der kaufmännische Bereich. Man kann 
sagen, daß auch heute noch in diesen Bereichen Com- 


puter mit am häufigsten eingesetzt werden. 


Die Problemstellungen, um die es nämlich in diesen Be- 
reichen geht, eignen sich in der Regel sehr gut dazu, 
durch Rechner, heute auch durch Mikrocomputer, gelöst 


zu werden. 


Einige der grundlegenden wirtschaftlichen Probleme, zu- 
mindest so weit Rechenprobleme ‚betroffen sind, werden 
in der Regel auch im schulischen Unterricht behandelt; 
beispielsweise in Handelsschulen natürlich in starkem 
Maße; aber auch in anderen Schultypen verschließt man 
nicht die Augen vor derartigen Fragestellungen, 


wie sie in diesem Kapitel behandelt werden sollen. 


Auch hier gilt aber, daß die ausgewählten Probleme 
nur stellvertretend stehen für viele anuere, die al- 


lein schon aus Platzgrünaen nicht aufgegriffen werden. 


Voß Kapitel 8 : Wirtschaft 


Abschnitt 2 : Zinsrechnung 
Schule 


8 2 Die Zinsrechnung 


“ ‚. Vorstellung des 
©) SCHRITT “ Problems 


Man stelle sich vor, jemand bringt einen be- 
stimmten Kapitalbetrag zu einer Bank, die dafür eine 
jährliche Zinszahlung vorsieht, deren Höhe alternativ 


festsetzbar ist. 


Nach jedem Jahr vermehrt sich also der Kapitalbestand 
um einen bestimmten Prozentsatz, wobei zu beachten ist, 
daß ab dem zweiten Jahr auch die schon angefallenen 


Zinsen wiederum verzinst werden (Zinseszinsrechnung).. 


Es soll nun ein Programm entwickelt werden, welches 


für einen beliebigen Ausgangsbetrag und für einen be- 
liebigen prozentualen Zinssatz ausrechnet, wie hoch 
der Endbetrag nach einer beliebigen Anzahl von Jahren 


sein wird. 


Ein derartiges Programm kann übrigens als Muster für 
die Simulation unterschiedlicher Wachstumsvorgänge 
benutzt werden. 


Voß Kapitel 8 : Wirtschaft 


Abschnitt 2 : Zinsrechnung 
Schule 


2) SCHRITT ı  Problemanalyse 


Nennen wir den Ausgangsbetrag Kd, den Zinssatz P (%) 


und die Dauer der Bankeinlage T (Jahre). 


Dann gilt nach dem ersten Jahr, daß sich der Betrag X1 


ergibt zu : 
+ XB *P/1B6B = xXd * (1 + P/188) 


Im zweiten Jahr ergibt sich entsprechend zum Jahresende: 


x1 + xX1 *P/188 = xX1 * (1 + P/1g$) 
xB * (1 + P/1BB) * (1 + P/188) 
x8 * (1 + P/188)? 


(Diesen Beziehungen sind wir übrigens schon in einem frü- 


heren Kapitel begegnet). 


Nach T Jahren ergibt sich demnach allgemein : 


XT = x * (1 + P/18g)" 


Mit Hilfe dieser Beziehung kann nun ein geeignetes Pro- 


gramm aufgebaut werden. 


Kapitel 8 : Wirtschaft 
Abschnitt 2 ® Zinsrechnung 


(5) SCHRITT ı  Flußdiagramm 


Ausgabe 
Z und KT 


80 

90 

100 
110 
120 
130 
150 
160 
:eR 
200 
210 
ZZO 


250 


240 
250 
500 
510 

20 


530 


RiN 


s50 


Kapitel ® Wirtschaft 
Abschnitt ® Zinsrechnung 


(4) SCHRITT H Programm 


REM W1-ZINSRECHNUNG 

CLS 

FRINT"FROGRAMM ZUR BERECHNUNG VON ZINSEN BEI" 
FRINT"JAEHRLICHER ZINSZAHLUNG UND GEGEBENEM" 
PRINT TAB(11) "AUSGANGSKAFITAL." 
FRINT=:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
FPRINT=:FRINT:FRINT:FRINT:FRINT 
INFUT"AUSGANGSEAPITAL B "3 Ko 
FRINT: INFUT"JAEHRL. ZINSSATZ IN %: ";F 

PRINT: INFUT"ANZAHL DER JAHRE s "sT 

CLS 

FRINT"JAHR ZINS KAFITAL"SFRINT:FRINT 
FOR I=1 TOT 

Z=KO*F/100 

KT=KO+Z 


IRBINAOTABSZUARERTNERARR GA. YERN man nun; 
EO=KT 

IF I/10=INT (1/10) THEN GOSUB SO0:REM WARTEN 
NEXT I 


F :FRINT:FRINT"NOCH EI ERECHNUNG ? (J/N) 
:ERAUF A nu. 


IF A$="J" THEN CLS:G0TO 80 
FRINT:PRINT:FRINT"ENDE DER BERECHNUNGEN" END 
REM UP WARTEN 

LOCATE 5,23 

FRINT"BITTE EINE TASTE DRUECKEN !" 
A$=INKEY$: IF A$="" THEN 530 
FELS: PRINT" JAHR ZINS KAPITAL":PRINT:P 


RETURN 


Kapitel 8: Wirtschaft 
Abschnitt 2: Zinsrechnung 


(5) SCHRITT : Variablenliste 


Laufindex 

Kapitalbestand am Anfang 

Kapitalbestand in den späteren Perioden: 
Jährlicher Zinssatz in Prozent 

Dauer des Sparprozesses in Jahren‘ 
Zinsbetrag pro Jahr 


(8,) schritt ‚ Programmbeschreibung 


Satz 18-78 Überschrift 
Satz 86-186 : Anforderung der Ausgangsdaten 


Satz 118-128 : Räumen des Büldschirms und Ausgabe einer 
Tabellenüberschrift 


138-22& : Berechnungen : 


158 Zinsbetrag 
168 : Kapitalbetrag in der nächsten Pe- 


riode 


Ausgabe 
: Neubelegung von Kß mit KT, um in 
die nächste Periodenberechnung 


"einsteigen" zu können 


Nach je 18 Perioden Programmunter- 


Voß Kapitel 8 
Abschnitt 2 


Schule 


Satz 239-25% 


Satz 5%#-55% 


: Wirtschaft 


Zinsrechnung 


brechung durch Sprung ins UP 58# 


Beendigung des Programms, es sei denn, 


es wird noch eine Berechnung gewünscht 


(dann zurück zu Satz 89) 


Unterprogramm zum Warten, wenn der Bild- 


schirm voll ist : 


518-529 : 
538% 
548 


© SCHRITT 


Geben wir als Anfangskapitalbestand DM 198 ein, als 


Hinweis 


: Warten, bis Tastendruck erfolgt 


Löschen des Bildschirms und 
erneute Ausgabe der Tabellen- 
überschrift 


Rücksprung 


Ergebnisse 


Zinssatz 5.5 % und als Zeitdauer 6 Jahre, dann ergibt 


sich : 


ZINS 


5.58 
5.86 
6.12 
6.46 
6.81 
7.19 


NOCH EINE BERECHNUNG 


KAPITAL 


185.58 
111.38 
117.42 
123.88 
138.69 
137.88 


(J/N) 2? 


Voß Kapitel 8: Wirtschaft 


Abschnitt 3 : Hypothek 
Schule 


8 3 Hypothekentilgung 


Vorstellung des 
(1) SCHRITT Problems 


Unter den wirtschaftlichen Fragestellungen 
spielen diejenigen eine wichtige Rolle, die mit der 
Rückzahlung von Krediten oder Hypotheken zu tun haben. 
Geeignete Computerprogramme können die Rückzahlungs- 
dauer unter unterschiedlichen Ausgangsbedingungen, wie 
z.B. Höhe der Verbindlichkeit, Zinshäöhe und Rückzah- 


lungsmodalitäten bestimmen, 


Es soll im folgenden ein Programm vorgestellt werden, 
welches für alternativ eingebbare Beträge die Tilgungs- 
dauer berechnet, wenn alternative Zinssätze vorgegeben 
werden, bzw. wenn unterschiedlich hohe Rückzahlungsraten 


vereinbart werden. 


Es ist leicht einzusehen, daß auch dieses Programm dann 
für generellere Fragestellungen dieser Art eingesetzt 


werden kann. 


Voß Kapitel 8: Wirtschaft 


Abschnitt 3 : Hypothek 
Schule 


(2) SCHRITT : Problemanalyse 


Zur Erläuterung der Problemlösung gehen wir von folgendem 


Beispiel aus : 


Jemand niımt eine Hypothek in der Höhe von S DM auf und 
vereinbart mit der hypothekgewährenden Bank eine monat- 
liche Rückzahlung von B DM. Von diesem Monatsbetrag B 
müssen zunächst die Schuldzinsen beglichen werden. Der 
Betrag, der nach Abzug der Zinsen übrig bleibt, kann 

zur Tilgung der Schuld, d.h. zu ihrer Verringerung ver- 
wendet werden - vorausgesetzt, es bleibt überhaupt ein 


positiver Rest übrig. 


Das zu entwickelnde Programm muß also Monat für Monat 
die anfallenden Zinsen berechnen und den Restbetrag, 
mit dem getilgt werden kann. Sollte dieser Restbetrag 
null oder negativ werden, so muß das Programm eine Wel- 
dung ausgeben, aus der erkenntlich wird, daß unter den 
gegebenen Bedingungen eine Verringerung der Schuld 
nicht möglich ist. 


Jahr für Jahr soll der aktuelle Schuldenstanäd ausgege- 
ben werden unä wenn der Schuldenstand null oder nega- 
tiv geworden sein sollte, ist auszugeben, wie lange 


dieser Schuldentilgungsprozeß geäauert hat. 


Voß Kapitel : Wirtschaft 
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Schule 


Flußäaiagramm 


Schuld, 
Zinssatz, 
Monats- 
betrag 


Bedingunge 
nicht zu- 
lässig 


voß Kapitel Wirtschaft 


Abschnitt 3 : Hypothek 
Schule 


(4) schritt Programm 


REM W2-HYFOTHEK 

CLS 

PRINT"PROGRAMM ZUR BERECHNUNG DER DAUER EINER" 
FRINT TAB(10) "HYFOTHEKENTILGUNG. " 
PRINT:FRINT:PRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
FRINT:PRINT:FRINTSFRINT 
PRINT: INFUT"MONATLICHE RATE ";B 
PRINT: INFUT"ZINSSATZ IN % 
PRINT: INPUT"AKTUELLE HYF. SCHULD "ıS 
CLS 

FRINT" JAHR SCHULD": FRINT 

FOR I=1 TO 20:FRINT"-";:NEXT I:PRINT 
J=1 

M=1 

Z=((F/100)*8) /12: T=B-Z 

IF Ti=0 THEN 250 

S=INT ( (S-T) *100+0.5) /100 

IF Si=0 THEN 300 

M=M+1: IF Mi13 THEN 150 

200 PRINT TAB(2)J; TAB(B)S 
210 J=J+1:60T0 140 


280 ERINTSPRINT:PRINT"DIE KONDITIONEN SIND DERART, 
DAss NICHT" 


260 FRINT"GETILGT WERDEN KANN." 

270 FRINT:FRINT"BITTE NEUE EINGABE":FRINT:GOTO 70 

300 FRINT:FRINT:PRINT"TILGUNGSDAUER : ":FRINT 

310 FRINT J-15" JAHRE UND "3M-15" MONATE." 

=20_PRINTAFRINT:FRINT"NOCH EINE BERECHNUNG ? (J/N) 
ıhEah Ar 


ve 
320 IF Af="J" THEN CLS:60T0 70 
340 FRINT:FRINT:FRINT"ENDE DER BERECHNUNG" END 


voß Kapitel 8 ' Wirtschaft 


Abschnitt 3 ® Hypothek 
Schule 


(5) schritt ı  Variablenliste 


Stringvariable (Ja, Nein) 
Monatlicher Rückzahlungsbetrag 
Laufindex 

Jahreszänler 

Monatszähler 

Jährlicher Schuldzinssatz 
Monatlicher Tilgungsbetrag 
Monatlicher Zinsbetrag 


SCHRITT ı  Programmbeschreibung 


18-68 - : Überschrift 


78-98 : Vorgabe der Ausgangsinformationen 


188-129 : Ausgabe einer Tabellenüberschrift 


138-148 : Vorgabe eines Jahreszählers (J) und 
eines Monatszählers M 


158-178 Berechnung von monatlichen Zins, mo- 
natlicher Tilgung und neuer Schuld 


: Wenn nicht getilgt werden kann, dann 
weiter bei 258 


Ist die Schuld getilgt, dann weiter 
bei 348 


voß 


Schule 


Kapitel 


8. Wirtschaft 


Abschnitt 3; Hypothek 


219 


258-278 


388-318 


32-348 


Nächster Monat 
falls M kleiner als 13 ist, weiter bei 
Satz 159%, andernfalls bei Satz 2$@ 


Ausgabe der aktuellen Schuld 


Nächstes Jahr und weiter bei Satz 14% 


Meldung bei unzulässigen Tilgungskon- 


ditionen und zurück zu Satz 78 


Ausgabe der Tilgungsdauer in Jahren 
und Monaten (der Leser überlege, wa- 
rum dabei von J und von M jeweils der 


Wert 1 abgezogen werden muß) 


Beendigung des Programms, es sei denn 


es wird eine erneute Berechnung ge- 
wünscht (dann nach Löschen des Bild- 


schirms zurück zum Satz 79) 


Kapitel ® Wirtschaft 
Abschnitt ® Hypothek 


(7) schritt H Ergebnisse 


Geben wir bei den Anforderungen des Rechners beispiels- 
weise ein : 


MONATLICHE RATE ? 5 
ZINSSATZ IN & : 6.5 
AKTUELLE HYP:SCHULD = 7 4dddB 


so erhalten wir während des Programmablaufs : 


SCHULD 


32759.89 
28771.82 
24515.85 
199975.7 
15131.47 
9962.84 

4448.86 


1 
2 
3 
4 
5 
6 
7 
8 


TILGUNGSDAUER : 


8 JAHRE UND 9 MONATE. 


NOCH EINE BERECHNUNG (J/N) ? 


voß Kapitel : Wirtschaft 


Abschnitt ; Durchschnitt 
Schule 


9. Arithmetisches Mittel 


; : Vorstellung des 
(1) SCHRITT . Problems 


Bei vielen wirtschaftlichen Fragestellungen 
ist es erforderlich, aus einer gegebenen Anzahl von 
Daten einen Durchschnitt auszurechnen, wobei üblicher- 


weise das arithmetische Mittel benutzt wird. 


Das folgende Programm soll für eine beliebige Anzahl 
von Daten nach Aufnahme.dieser Werte diese Rechenpro- 


zedur durchführen. 


SCHRITT 5 Problemanalyse 


Bei der Problemanalyse treten keine besonderen Schwie- 


rigkeiten auf. 


Es muß zunächst dafür gesorgt werden, daß eine offene 
Anzahl von Daten eingegeben werden kann, weshalb dem 
Rechner als erstes mitgeteilt werden muß, wieviele Wer- 


te es überhaupt sein werden. 


Bei der Eingabe der Werte können diese gleich aufad- 
diert werden (das arithmetische Mittel ist ja die Summe 
aller Werte geteilt durch ihre Anzahl). Die Division 


der entstehenden Summe aurch die Anzahl der Werte kann 
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dann als Ergebnis des Programms ausgegeben werden. 


Soll eine weitere Berechnung äurchgeführt werden, ver- 
zweigt das Programm wieder an den Anfang, andernfalls 
ist es beendet. 


(5) SCHRITT f Flußdiagramm 


voß Kapitel : Wirtschaft 


Abschnitt Durchschnitt 
Schule 


(%) SCHRITT Programm 


10 REM W3-MITTELWERT 

20 CLS 

30 FRINT"FROGRAMM ZUR BERECHNUNG EINES ARITHME-" 
40 FRINT TAB(11)"TISCHEN MITTELS." 

SO FRINT:FRINT:FRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
60 FRINT=SFRINT:FRINT:FRINT:FRINT 

70 INFUT"WIEVIELE WERTE : ";N 

80 CLS:S=0 

90 FOR I=1 TON 

100 FRINT 15". WERT : "z3:1INPUT X 

110 $=5+X 

120 NEXT I 

130 AM=S/N 

150 FRINT:FRINT:FRINT"MITTELWERT = "SAM:FRINT 

dr9 „ERINT:FRINT"NOCH EINE BERECHNUNG ? (J/N) "3: INF 


170 IF A#="J" THEN CLS:60T0 70 
180 FRINT:FRINT:FRINT"ENDE DER BERECHNUNGEN" END 


(5) SCHRITT B Variablenliste 


Arithmetisches Mittel 

Stringvariable (Ja, Nein) 

Laufindex 

Anzahl der zu mittelnden Werte 

Summe der zu mittelnden Werte 

Wert, der in die Mittelwertberechnung eingeht 


Kapitel 8: Wirtschaft 
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SCHRITT ı Programmbeschreibung 


Überschrift 


Angabe der Anzahl der zu mittelnden 
Werte 


Löschen des Bildschirms und Vorgabe 
eines Summenfeldes 


Eingabe eines Wertes nach dem anderen 
und Aufaddition aller Werte 


Satz 136-158 : Berechnung des arithmetischen Mittels 
und Ausgabe des Ergebnisses 


168-186 : Abschluß des Programms, es sei denn,es 


wird eine zusätzliche Berechnung ge- 


wünscht 


(7) schritt \ Ergebnisse 


Geben wir beispielsweise an, daß 3 Werte vorliegen, so 


fordert das Programm genau drei Werte an. 
Sind dies z.B. die Werte 5,7 und 9, so erhalten wir : 
MITTELWERT = 7 


NOCH EINE BERECHNUNG (J/N)  ? 


Kapitel 8 : Wirtschaft 
Abschnitt 5 : Verteilung 


8. 5 Häufigkeitsverteilung 


Vorstellung des 
(1) SENRLIE Problems 


Bei der Auswertung größerer Datenbestände, für 
die sich ja der Einsatz von Computern ganz besonders 
gut eignet, besteht ein erster statistischer Auswer- 
tungsschritt häufig darin, eine sog. Häufigkeitsver- 
teilung zu erstellen, 


Es geht dabei darum, den Merkmalswerten (oder Merkmals- 
wertklassen) einer Untersuchungsvariablen die Häufig- 
keit ihres Auftretens graphisch oder tabellarisch zu- 
zuordnen. 


Das folgende Programm wird sowohl eine graphische wie 
auch eine tabellarische Häufigkeitsverteilung erstel- 
len, wobei uns als Datenmaterial die Altersverteilung 


in der Bundesrepublik Deutschland im Jahre 198% dient. 


Diese Altersverteilung der westdeutschen Bevölkerung 
stellt sich folgendermaßen dar : 


Voß Kapitel 8. Wirtschaft 


Abschnitt 5. Verteilung 
Schule 


Altersverteilung in der Bundesrepublik Deutschland 
1988 


Altersklasse Anteil in % 


unter 18 

18 bis unter 
2% bis unter 
3% bis unter 
46 bis unter 
5% bis unter 
6% bis unter 
78 bis unter 
88 bis unter 
96 mehr 


(2) SCHRITT s Problemanalyse 


Bei der Problemanalyse gehen wir davon aus, daß uns 
die Daten wie in obiger Tabelle schon vorliegen, so 
daß diese Werte als Ausgangsmaterial dem zu entwickeln- 
den Programm eingegeben werden können. 


Sollte dies nicht der Fall sein, hätte man also bei- 
spielsweise individuelle Altersangaben in einer Frage- 
bogenaktion o.ä. erhoben, so müßte in einem ersten 
Programmteil erst dafür gesorgt werden, daß die indi- 
viduellen Angaben in die einzelnen, zunächst noch lee- 
ren, Altersklassen einsortiert werden (dies kann mit 
einer Folge von IF ... THEN-Statements geleistet wer- 


Kapitel 8: Wirtschaft 
Abschnitt 5: Verteilung 


den, bei der jeder einzelne Alterswert überprüft wird). 


Ist dies geschehen, dann könnten die Klassenbesetzungs- 


zahlen, die sich dann ergeben haben, durch Beziehung 


auf die Gesamtzahl der Angaben relativiert werden, so 
daß man zu Prozentanteilen gelangt, wie sie in obiger 
Tabelle schon vorgegeben sind. 


Dieser Programmteil könnte also schematisch folgender- 


maßen aussehen : 


188 INPUT "Nächstes Alter : ";X 
11 IF X< 18 THEN Z1=21+ 1 : GOTO 19% 
128 IF X <2& THEN 22=22+ 1 : GOTO 19% 


USW. 


288 R1=(Z1/N) *1g8 
218 R2=(Z2/N) *168 


Hier in diesem Beispiel geht es aber lediglich darum, 
die schon vorgegebenen Werte zunächst tabellarisch dar- 
zustellen, was natürlich überhaupt keine programmtech- 


nischen Schwierigkeiten verursacht. 


Etwas komplizierter ist hingegen die graphische Darstel- 
lung dieser Häufigkeitsverteilung, 


Um den Bildschirm für die graphische Darstellung opti- 
mal ausnutzen zu können, bestimmen wir zunächst aus dem 


vorliegenden Datenbestand die größte Häufigkeit und 
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rechnen alle anderen Häufigkeiten dann so um, daß 
die größte Häufigkeit in der graphischen Darstellung 
sich in der Vertikalen über 2% Bildschirmzeilen er- 


streckt. 


Die Häufigkeiten selbst stellen wir als senkrechte 
Stäbe dar. Um diese Stäbe maßstabgerecht zeichnen zu 


lassen, muß ihr jeweiliger Endpunkt bestimmt werden. 


Zusammen mit dem Anfangspunkt erhalten wir dann je- 
weils zwei Bildschirmpositionen und es geht dann nur 
noch darum, alle Positionen zwischen diesen beiden 


(unter Einschluß derselben) zu belegen. 


Voß Kapitel 8: Wirtschaft 


Abschnitt 5: Verteilung 
Schule 


(5) SCHRITT f Flußdiagramm 


Bestimmung 
max.Häufig 
keit 


Normierung 
aller Häu- 
figkeiten 


Bestimmung 
Stabanfang 
und -ende 
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Abschnitt 5. Verteilung 
Schule 


(4) SCHRITT Programm 


REM WS5S-VERTEILUNG 
EL8 
FRINT"FROGRAMM ZUR TABELLARISCHEN UND GRAFHI-" 
FRINT"SCHEN DARSTELLUNG EINER STATISTISCHEN" 
FRINT TAB (8) "HAEUFIGKEITSVERTEILUNG. " 
FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
FRINT:FRINT:FRINT:FRINT:FRINT 
FRINT"DARGESTELLT WIRD DIE ALTERSVERTEILUNG" 
FRINT"IN DER BUNDESREFUBLIE DEUTSCHLAND 1980" 

GOSUB 1000:REM WARTEN 

DIM F(10),FT(10) 

FOR I=1 TO 10:READ F(I):NEXT I 

FRINT"ALTER"3 TAB(Z2) "ANTEIL IN %":FRINT 

FOR I= 1 TO 35: FRINT"-";:NEXT I:FRINT 

FOR I= 1 TO 10 

A=(1-1)*10:B=1I#10 

FRINT USING "##":A; 
2 FRINT TAR(6)" BIS UNTER "; 

FRINT USING "###":B; 

FRINT TAB(24) USING "###.#"; F(I) 

NEXT I 

GOSUB 1000: REM WARTEN 

REM NORMIERUNG 

FM=0 

FOR I=1 TO 10:IF F(I)>FM THEN FM=F(I) 

NEXT I 

FOR I=1 TO 10 

FTCID)=F(I)#(2ZO/FM 

NEXT I 

REM ZEICHNEN 

B=20 

FOR I=1 TO 10 

A=21-FT(I) zA=INT (A+t0.5) 

FOR Z=A TO B 

LOCATE 4#1,2Z 

FRINT CHR# (143) 

NEXT Z 

NEXT I 

FLOT 35,80:DRAW 630,80 
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ERR FRINTIFRINT TAB(A) "ALTER IN KLASSEN ZU 10 JAHR 
430 FRINT"ENDE":END 

509 DATA 10.3,16.4,14.6,13.4,14.2,11.9,8.9,7.8,2.4 
Er 

1000 REM UF WARTEN 

4010 LOCATE 5,23: PRINT"BITTE EINE TASTE DRUECKEN ! 
1020 A&=INKEY$: IF A$="" THEN 1020 

1030 CLS 

1040 RETURN 


(5) SCHRITT \ Variablenliste 


Anfang der Altersklasse 

später : Anfangsadresse des zu zeichnenden Stabes 
Stringvariable zur Antwortaufnahme 

Ende der Altersklasse 

später : Endadresse des zu zeichnenden Stabes; 
Häufigkeit 

maximale Häufigkeit 

transformierte Häufigkeit 

Laufindex 


Laufindex (Bildschirmzeile) 
SCHRITT \ Programmbeschreibung 
Satz 16- 98 : Überschrift 
Satz 118 : Warten 


Satz 129-138 : Dimensionieren und Einlesen der Aus- 


gangsdaten 
148-159 : Ausgabe der Tabellenüberschrift 


16%-189 : Tabellenausgabe: 


165 : Bestimmung von Klassenanfangs- 
und Klassenendpunkt 
178-176: Ausgabe 
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198 : Warten 


229-258 : Aufsuchen der größten Häufig- 
keit durch Vergleich aller Häufig- 
keiten mit der jeweils schon er- 
reichten größten Häufigkeit (beim 
Wert null beginnend) 


269-289 Bestimmung transformierter Häufig- 
keit durch Ausrichten der Häufigkei- 


ten an der Maximalhäufigkeit 


298-378 : Zeichnen von 19% Stäben: 
38% : Stabende 


32% : Bestimmung des Stabanfangs ge- 
messen an der Bildschirmzei- 
leneinteilung 


33%-368: Zeichnen des Stabes durch 
Zusammenfügen von kleinen 
Quadraten in Spalte 4%I 


388 : Waagrechte Achse 


398 : Beschriftung der waagrechten Achse 
438 Ende des Programms 


588 Daten 


1888-1848 Unterprogramm Warten 
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Abschnitt 5 : Verteilung 
Schule 


©) SCHRITT : Ergebnisse 


Die Ergebnisse dieses Programms sollen hier nicht vor- 
gestellt werden. Viel sinnvoller ist es, wenn der Le- 


ser das Programm in seinen Rechner eingibt, um dann im 


Vergleich der Bildschirmausgabe mit dem vorgestellten 
Programm nachzuvollziehen, was im einzelnen geschieht. 


voß Kapitel 8: Wirtschaft 
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8 6 Die Wirtschaftskraft der Bundesländer 


. Vorstellung des 
SCHRITT ‘ Problems 


Von ganz anderer Art wie die vorangegangenen 
Programmbeispiele ist das folgende Programm. Hier geht 
es nämlich wieder, wie schon in manchen Kapiteln zuvor, 


darum, ein "Informationsprogramm" zu erstellen. 


Es soll ein Programm entwickelt werden, welches für 
die Länder der Bundesrepublik Deutschland wichtige 
Wirtschaftsdaten auf Anforderung durch den Benutzer 


ausgibt. 


Die Daten, die für diese Informationsbereitstellung 


vorgegeben werden, sind die folgenden : 


Bevölkerungszahl (in Millionen) 

Fläche (in 1d8% Quadratkilometer) 
Bruttosozialprodukt (in Mrd. DM) 

Anzahl der Erwerbstätigen (in Millionen) 
Anteil der ausländischen Erwerbstätigen (in ®) 
Steueraufkommen (in Mrd. DM) 

Schulden (in Mrd. DM) 

Anteil der industriellen Produktion (in ®) 


Es versteht sich von selbst, daß bei Bedarf oder Interes- 


se diese Liste verlängert werden könnte, oder daß an- 
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stelle der Bundesländer auch andere Sachverhalte (z.B. 
Nationen) betrachtet werden könnten.Natürlich müßte 
dann aber der Datenbestand entsprechend geändert wer- 
den. 


© SCHRITT : Problemanalyse 


Der Leser wirä schon festgestellt haben, daß sich über 
die verschiedenen Kapitel hinweg bestimmte Problemtypen 
wiederholen oder in ähnlicher Form wiederkehren. So ist 
dies auch bei dieser Problemstellung : Sie bietet im 
Prinzip keine neuen Probleme, so daß die Analyse recht 
einfach ist : 


Es müssen zunächst alle relevanten Informationen einge- 
geben werden. Der Benutzer wird dann aufgefordert, an- 
zugeben, über welches Land er Informationen wünscht. 

Nach der daraufhin erforderlichen Eingabe, erfolgt die 


Ausgabe des Datensatzes für das gewünschte Bundesland. 


Kapitel 8. Wirtschaft 
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(5) SCHRITT H Flußdiagramm 


Ausgabe 
Daten- 
satz 


Kapitel . Wirtschaft 


Abschnitt ‚ Länder 


(4) SCHRITT Programm 


10 REM W&-LAENDER 

20 CLS 

30 FRINT"FROGRAMM ZUR AUSGABE VON INFORMATIONEN" 
40 FRINT"UEBER DIE WIRTSCHAFTSKRAFT DER BUNDES-" 
50 FRINT TAB(16) "LAENDER." 

60 FRINT:FRINT=EFRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
70 FRINT:FRINT:FRINT:FRINT:FRINT 

110 DIM L$(12),V(8,12),B#(8) 

120 FOR I=1 TO 12:READ L#(I):NEXT I 

130 FOR I=1 TO 8:READ B#(I):NEXT I 


140_FOR J=1 TO 8:FOR I=1 TO 12:READ V(J,DD:NEXT I: 
NEXT 


150 GOSUB 1000:REM WARTEN 

200 FRINT"FUER WELCHES LAND WERDEN INFORMATIONEN" 
210 FRINT"GEWUENSCHT 7 ":FRINT 

220 FOR I=1 TO 12 

230 FRINT TAB(S)" ("3 15 ")"3: PRINT TAB(ISILECD) 
240 NEXT I 

250 FRINT:FRINT: INFUT"BITTE NUMMER ANGEBEN : "52 
260 ELS 

280 FRINT L#(Z):FRINT:FRINT 

290 FOR J=1 TO 8 

200 FRINT B&(J); TAB(29)": "sEFRINT V(J,Z) 

310 NEXT J 

320 GOSUR 1000:REM WARTEN 


350 FRINT"NOCH EIN ANDERES LAND 7 (J/N) "3: 1INFUT A 


340 IF A#="J" THEN CLS:G60T0O 200 
350 FRINT:FRINT"ENDE DER AUSGABE" :END 


Bes PATDESTEHLERWIS-HOLSTEIN" , "NIEDERSACHSEN" „"NOR 


502 DATA "HESSEN" „ "RHEINLAND-FFALZ" „ "SAARLAND" 


TA "BADEN -WUERTTEMBERG" , "BAYERN" ‚ "HAMBURG", " 
"BERLIN" 


506 DATA "BUNDESREFUBLIK DEUTSCHLAND" 
BIP „PRRBDEEYORLEEFHNS (MILL.) ,FLAECHE (1000 OEM) ,S 


332 RBA«ÄBPEBRRERETARB, snjtL > ‚austaenneranren. ( 


DATA SCHULDEN (MRD.DM) „ANTEIL INDUSTRIEPROD. (% 
DATA 0,0,0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0 
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606 DATA 0,0,0,0,0,0,0,0,0,0 

608 DATA 0,0,0,0,0,0,0,0,0,0 

610 DATA 0,0,0,0,0,0,0,0,0,0 

612 DATA 0,0,0,0,0,0,0,0,0,0 

614 DATA 0,0,0,0,0,0,0,0,0,0 

616 DATA 0,0,0,0,0,0,0,0,0,0 

618 DATA 0,0,0,0,0,0 

1000 REM UF WARTEN 

4010 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN 
1020 A#=INKEYF:IF At="" THEN 1020 
1030 CLS 

1040 RETURN 


i ist 
(5) SCHRITT Variablenliste 


Stringvariable 
Variablen-Bezeichnungen 
Laufindex (Länder) 
Laufindex (Variablen) 
Ländernamen 

Variablen 


Nummer des gewünschten Landes 


SCHRITT ı  Programmbeschreibung 


Satz 18-78 : Überschrift 
Satz 118 Dimensionierungen 


Satz 129-148 Einlesen der Ausgangsdaten : 


128 : Ländernamen 
138 : Variablenbezeichnungen 
148 : Variablenwerte 


Satz 159 : Warten 


Satz 288-258 : Anforderung der Nummer desjenigen Landes, 
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über das Informationen gewünscht wer- 
den, nachdem eine Länderliste auf dem 


Bildschirm vorgegeben wurde 


26#-288 : Löschen des Bildschirms und Ausgabe des 


Namens des gewünschten Landes 


Ausgabe des Datensatzes für das ge- 


wünschte Land 
Warten 


338-356 : Abfrage, ob noch eine weitere Ausgabe ge- 
wünscht wird (wenn ja, Löschen des 
Bildschirms und zurück zu Satz 299); 


wenn nein, Beendigung des Programms 


5886-5986 : Ländernamen in DATA-Statements 


518-514 : Variablenbezeichnungen in DATA-State- 


ments 


688-618 : Variablenwerte 


Die Werte sind so anzugeben, daß für die 
erste Variable alle Länderwerte, dann 
für die zweite Variable alle Länderwer- 


te ... usw. folgen (vergl. Satz 149) 


ACHTUNG : IM PROGRAMM SIND NUR NULLEN (vergl. nächster 
Arbeitsschritt !) 


Satz 1d@%-1%48 :Unterprogramm zum Warten. 
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(7) schart , Ergebnisse 


Im Datenbestand des vorgestellten Programms finden sich 
nur Nullen, so daß bei einem Probelauf tatsächlich auch 
nur Nullwerte auf dem Biläschirm erscheinen können, 


wenn ein "echter" Probelauf durchgeführt werden soll, 


dann müssen erst konkrete Daten eingegeben werden, die 


der Leser der folgenden Übersicht entnehmen kann : 


Wirtschaftsdaten der Bundesländer (die Daten beziehen 
sich auf 1989-1982) 


Bevölk. Fläche Sozial Erwerbs- 
(Mill.) (188% prod. tätige 
qkm) (Mrd.) (Mill.) 


Schleswig- 
Holstein 


Niedersachsen 


Nordrhein- 
Westfalen 


Hessen 
Rheinland-Pfalz 


Baden-Württem- 
berg 


Bayern 
Saarland 
Hamburg 
Bremen 


Berlin 


BUND 
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Ausländer- Steuer- Schul- 
anteil aufkom- den 
men (Mrd) (Mrd) 


Schleswig- 
Holstein 


Niedersachsen 


Nordrhein- 
Westfalen 


Hessen 
Rheinland-Pfalz 


Baden-Württem- 
berg 


Bayern 
Saarland 
Hamburg 
Bremen 


Berlin 


BUND 


Anteil In- 
dustrie- 
produktion 


Kapitel 9 Mathematik II 
Abschnitt 1 Vorbemerkung 


Q 1 Vorbemerkung 
. PEN IEEEENNDEFENBENSEERBRE-ER 


Abschließend soll ein Kapitel angefügt werden, 
in dem weitere mathematische Probleme behandelt wer- 
den, unä zwar solche, die einen etwas höheren Schwie- 
rigkeitsgrad aufweisen, als die bisher besprochenen 
Probleme. Damit soll der bereits fortgeschrittene 
Mikrocomputer-Benutzer erkennen, daß mit relativ 
einfachen Programmen auch schon komplexere Problem- 
stellungen in Angriff genommen werden können. 
Insoweit könnte dieses Schlußkapitel für den Anfänger 
eine leichte Überforderung darstellen (aber das ge- 
rade übt ja auch manchmal einen beträchtlichen Reiz 


aus). 


Diese etwas komplizierteren Probleme sollen so pro- 
grammiert werden,' daß keine zusätzlichen BASIC-An- 
weisungen benötigt werden. Das bedeutet, daß die ent- 
stehenden Programme (wie auch schon die vorhergehen- 


den) nicht den Eleganzansprüchen geübter Programmie- 


rer entsprechen können. Darauf kommt es aber hier auch 


nicht an. 
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Im Gegensatz zu den früheren Kapiteln werden wir uns 
hier aber kürzer fassen, weil mehr als ein Dutzend 


zusätzlicher Probleme behandelt werden sollen: 


Nach einer kurzen Beschreibung der Problemstellung 
und einigen Anmerkungen zur Problemanalyse stellen 


wir sofort das Programm vor und schließen eine knap- 


pe Programmbeschreibung an. Insbesondere auf die 


Arbeitsschritte "Flußdiagramm" und "Ergebnisse" wird 
also im folgenden verzichtet; nicht nur aus Gründen 
der Platzersparnis, sondern auch, weil sich unter 
rein programmlogischen Gesichtspunkten eigentlich 


keine neuen Detailprobleme mehr stellen. 
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Q 2 Gitter 


Problemstellung 


Das folgende Programm dient dazu, auf dem 
Bildschirm ein Liniengitter mit beliebigen Zeilen- 
und Spaltenabständen auszugeben. 

Die Überlegungen, die diesem einfachen Programm zu- 
grundeliegen, können so oder in ähnlicher Weise immer 
verwendet werden, wenn beispielsweise umfangreichere 
Tabellenausgaben durch Längs- und Querstriche geglie- 


dert werden sollen. 


Problemanalyse 


Stichworte zur Problemanalyse sind hier fast entbehr- 
lich: Vorzugeben sind vom Benutzer Angaben zum Zeilen- 
und zum Spaltenabstand. Entsprechend Jdieser Angaben 
wird der Graphik-Cursor per PLOT-Anweisung positio- 
niert, um dann per DRAW-Anweisung eine gerade Linie 


zu ziehen. 
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REM Z1-GITTER 
CLS 


FRINT"FROGRAMM ZUM ZEICHNEN EINES GITTERS." 
FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
LOCATE 3,20: INFUT"SFALTENABSTAND : "5S 
LOCATE 3,22: INFUT"ZEILENABSTAND "37 

CLS 

FOR I=1 TO 639 STEF S 

FLOT 1,399:DRAW I,1 

NEXT I 

FOR I=1 TO 3997 STEF Z 

FLOT 1,I:DRAW 639,1 

NEXT I 

LOCATE 18,24:FRINT"ENDE":END 


Variablenliste 


Laufindex 
Spaltenabstand 


Zeilenabstand 


Kapitel Mathematik II 
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Programmbeschreibung: 


Satz 19- 49 : Überschrift 


Satz 58- 69 Eingabe von Spalten- und Zeilen- 
abstand 


78 : Löschen des Bildschirms 
88-198 Zeichnen der senkrechten Striche 
118-138 : Zeichnen der waagrechten Striche 


148 : Beendigung des Programms 


Voß Kapitel 9 Mathematik II 


Abschnitt 3 Gerade 
Schule 


OÖ 3 Die Gerade 


Problemstellung 


Das folgende Programm dient dazu, beliebige Geraden 
in ein Achsenkreuz einzuzeichnen, dessen Ursprung 
in der Bildschirmmitte (329,28) liegt. 


Problemanalyse 


Die Lage einer Geraden wird von zwei Parametern be- 
stimmt, dem Ordinatenabschnitt A und dem Tangens 
des Steigungswinkels B gemäß der folgenden Funktio- 


nalgleichung: 


Da der Koordinatenursprung im Punkt (3298,2%%) liegen 
soll, ergibt sich: 


Y = 288 + A+B * (X,-328) 


Voß Kapitel 9 Mathematik II 


Abschnitt 3 Gerade 
Schule 


Programm: 


REM Z2-GERADE 
CLS 
FRINT"FROGRAMM ZUM. ZEICHNEN EINER GERADEN. " 
FRINT:FRINT:FRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
LOCATE 3,20: INFUT"ORDINATENABSCHNITT A : "5 
LOCATE 3,22: INFUT"STEIGUNG B: ";B 
ELS 
FLOT 0,200:DRAW 639,200 
FLOT 320,399:DRAW 320,0 

FOR X=0 TO 639 

=200+A+B# (X-320) 

IF Yi=0 OR Y>=399 THEN 140 

FLOT X,Y 

NEXT X 

LOCATE 18,24: FRINT"ENDE":END 


Variablenliste 


Ordinatenabschnitt 
Tangens des Steigungswinkels 
Werte auf der X-Achse 


Funktionswerte 


Kapitel 9 Mathematik II 
Abschnitt 3 Gerade 


Programmbeschreibung: 


18- 48 : Überschrift 

5%- 69 : Eingabe der Geradenparameter 
78 : Löschen des Bildschirms 

88- 98 Zeichnen des Achsenkreuzes 


188-149 : Zeichnen der Gerade über die 
gesamte Breite des Bildschirms 
(für unzulässige Y-Werte wird 
die Zeichenanweisung 138 über- 


sprungen) 


Beendigung des Programms 


Kapitel : Mathematik II 
Abschnitt Kreis 


$ L, Der Kreis 
. en 


Problemstellung 


Nach dem gleichen Muster wie im vorangegange- 
nen Abschnitt ein Programm zum Zeichnen einer Geraden 
entwickelt wurde, soll nun ein Programm zum Zeichnen be- 
liebiger Kreise vorgestellt werden. Dabei wiederholt 


sich nun vieles, so daß wir uns entsprechend kurz fassen 
können. 


Problemanalyse 


Wir stehen hier vor dem gleichen Problem wie im Abschnitt 
zuvor, mit dem Unterschied, daß wir nun von der Kreis- 
gleichung ausgehen müssen 


Diese Kreisgleichung lautet allgemein 
(x - a)? + (Yy- p)? = r 
Dabei ist r der Radius des Kreises, x und y sind die 


Koordinaten der Kreislinie und a und b sind die Koor- 
dinaten des Kreismittelpunktes. 


voß Kapitel 9 : Mathematik II 


Abschnitt 4: Kreis 
Schule 


Löst man diese Beziehung nach y auf (Lösen einer qua- 
dratischen Gleichung), so erhält man die Gleichungen 
für den oberen und den unteren Halbkreis. 


Es gilt nämlich 


(y - bp)? re - (x - a)? 


y-b = #SQR(D) 


Yıra = b + sor(D) 


Danit sind die Grundlagen für das folgende Programm 
klar : 


Es benötigt als Input-Informationen die Koordinaten des 
Kreismittelpunktes a und b (wir nennen sie im folgenden 
Programm T und Z) und den Radius r (in BASIC : R). Dann 
können für alternative Werte von X die dazugehörigen 
Werte Y1 und Y2 gemäß der obigen Beziehung bestimmt wer- 
den und die Punkte X,Y1 und X,Y2 können gezeichnet wer- 
den. 


Es ist dabei zu beachten, daß sich X nur sinnvollerwei- 
se im Bereich von T-R bis T+R bewegen kann, weil außer- 
halb dieses Bereichs keine Y-Werte im reellen Bereich 
definiert sinä (die Hilfsgröße D würde dort negativ 

und aer Versuch, aus ihr die Wurzel zu ziehen, würde 


zu einer Fehlermeldung und zum Programmabbruch führen). 


Kapitel 9 Mathematik II 
Abschnitt 4 Kreis 


REM Z3-KREIS 

CLS 

FRINT"FROGRAMM ZUM ZEICHNEN EINES KREISES." 
FRINT:FRINT:FRINT:FRINT:FRINT 

FRINT"DIESES FROGRAMM BENDETIGT ALS INFUT-" 
FRINT" INFORMATIONEN SPALTE UND ZEILE DES " 
FRINT"EREISMITTELPUNKTES UND RADIUS DES EREI-" 
FRINT"SES." 

FRINT=SFRINT:FRINT: INFUT"MITTELFUNKT — SFALTE : 


PRINT: INPUT "MITTELFUNKT —- ZEILE : "3Z 
FRINT=:FRINT: INFUT " RADIUS : ";R 


CLS 

FLOT 0,0:DRAW 0,399 

FLOT 0,0:DRAW 639,0 

FLOT T,O:DRAW T,399 

FLOT 0,Z:DRAW 639,27 
A=T-R: B=T+R 

IF Ai0ö THEN A=0 

IF E:639 THEN B=6539 

FOR X=A TO EB 
D=R#R-(X-T)“2 

IF Di=0 THEN Y=2:60T0 250 
Y= Z+SOR(D) 

IF YO OR Y>399 THEN Z60 
FLOT X,Y 

NEXT X 

FOR X=RB TO A STEF-1 
D=R#+R- (X-T)"2 

IF Di=0 THEN Y=2:60T0 7320 
Y=7-SOR (D) 

IF Y<O OR Y>399 THEN 330 
FLOT X,Y 

NEXT X 

LOCATE 18,24:FRINT"ENDE":END 


voß Kapitel 9 : Mathematik II 


Abschnitt 4 ı Kreis 
Schule 


Variablenliste 


linker Extrempunkt des Kreises 
rechter Extrempunkt des Kreises 
D = R2-(x-n)? 

Radius 

Spalte des Kreismittelpunkts 
X-Koordinatenwerte 


Y-Koordinatenwerte 


NK x Ho 0o u» 


Zeile des Kreismittelpunkts 


Programmbeschreibung 


Satz 19- 88 : Überschrift und Erläuterungen 

Satz 98-128 : Inputinformationen 

Satz 138-148 : Achsenkreuz 

Satz 159-168 : Hilfs-Achsenkreuz 

Satz 178-198 : Festlegung des Wertebereichs für X 
Satz 298-269 : Zeichnen eines Halbkreises 

Satz 279-338 : Zeichnen des anderen Halbkreises 
Satz 348 : Beendigung des Programms 


Voß Kapitel Mathematik II 


9 
Abschnitt 5: Sinus 
Schule 


g e) Die Sinuslinie 
® 


Problemstellung 


In einem letzten Beispiel hochauflösender 
Graphik wollen wir eine Sinusschwingung darstellen, 
der wir im Kapitel "Physik" schon einmal begegnet 
waren. Die Vorgehensweise ist die gleiche wie in den 


vorangegangenen beiden Abschnitten. 


Problemanalyse 


Die Problemanalyse ist hier einfach, weil keine neuen 
Probleme zu bewältigen sind. Wir haben lediglich da- 
rauf zu achten, daß die Periodizität der Sinusschwin- 
gung (Frequenz) und ihre Amplitude (Ausschlag) so 
eingerichtet werden, daß die auf dem Bildschirm auszu- 
gebende Schwingung optisch gut aussieht, d.h. den zur 
Verfügung stehenden Raum in geschickter Weise aus- 


nutzt. 


voß 


Schule 


10 
ZO 
30 
198 
50 
60 
70 
8C 
90 
100 
110 
120 
130 
140 
150 
160 
170 
172 
174 
176 
178 
180 


Kapitel 9 : Mathematik II 
Abschnitt 5 : Sinus 


REM Z4-SINUS 

CcLS 

FRINT"FROGRAMM ZUM ZEICHNEN EINER SINUSLINIE." 
BRINTSPRINTEPRINTAPRINT TAB (9) "FROF.DR.W.VOSS, 


FRINT:PRINT:PRINT:PRINT 

FRINT"DAS FROGRAMM BENDETIGT DIE FOLGENDEN" 
PRINT" INFUTINFORMATIONEN :":FRINT:FRINT 
FRINT: INFUT"FREQUENZ (IN EINHEITEN VON FI) ";P 
PRINT: INFUT"AMPLITUDE (0 BIS 199) “A 
CLS 

PLOT 0,200:DRAW 639,200 

FOR X=0 TO 639 

J=X/100:J=J# (1/P) 

Y=SIN(J) :Y=Y#A 

Y=POO+Y 

PLOT X,Y 

NEXT X 

LOCATE 19,12: PRINT"PI" 

LOCATE 38,12: PRINT"2FLI" 

LOCATE 3,21: FRINT"FREQUENZ (IN FI) 

LOCATE 3,22: PRINT"AMFLITUDE 

LOCATE 18,24: PRINT"ENDE":END 


Voß Kapitel 9 Mathematik II 


Abschnitt 5 Sinus 
Schule 


Variablenliste : 


Amplitude 
transformierter X-Wert 
Frequenz 
X-Koordinatenwert 


Y-Koordinatenwert 


Programmbeschreibung 


Satz 19- 59% Überschrift 
Satz 69- 99 Inputinformationen 
Satz 198-118 : Zeichnen einer waagrechten Mittel- 
linie 
128-178 Bestimmung der Sinuswerte und 
Zeichnen nach Transformation 
gemäß P und A 


172-188 : Textausgabe und Beendigung des 


Programms 


Kapitel 9 Mathematik II 
Abschnitt 6 Tafel 1 


Mathem. 


Tafel 1 


Problemstellung 


Im folgenden Programm werden für alle natürlichen 
Zahlen von 1 bis 188 die Quadratzahlen und die Qua- 
dratwurzeln ausgegeben. 

Insoweit ist dieses Programm quasi als "Nachschlage- 
programm" zu verstehen. 


Problemanalyse 


Eine Problemanalyse dürfte bei dieser sehr einfachen 
Problemstellung entbehrlich sein. 


Kapitel 9 : Mathematik II 
Abschnitt 6 : Tafel 1 


REM Z5-TAFELI 
CLS 
30 FRINT"FROGRAMM ZUR ERZEUGUNG DER QUADRATZAH-" 
40 FRINT"LEN UND DER QUADRATWURZELN FUER ALLE" 
45 FRINT TAB(7) "NATUERLICHEN ZAHLEN (1-100)." 
50 FRINT:PRINT:FRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
60 GOSUB ZO00:REM WARTEN 
70 FOR I=1 TO 100 
80 Q=I#I:W=SQOR (I) 


28, FEANTTUTANG LPPASHABPÄRNT RAR. Vorne "onann 


100 IF I/15=INT (1/15) THEN GOSUB Z600:REM WARTEN 
110 NEXT I 

120 FRINT:FRINT"ENDE DER AUSGABE":END 

1000 REM UF KOFFZEILE 

1010 FRINT"ZAHL QUADRAT WURZEL":FRINT 

1020 FOR J=1 TO 23:FRINT"-"53:NEXT J:FRINT:RETURN 
2000 REM UF WARTEN 

2010 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN ! 


2020 A$=INKEYF: IF A$="" THEN 2020 
2030 CLS 

2040 GOSURB 1000: REM KOFFZEILE 
2050 RETURN 


Kapitel 9 Mathematik II 
Abschnitt 6 Tafel 1 


Variablenliste: 


Stringvariable für Tasteneingabe 
Laufindex (natürliche Zahlen 1-19$) 
Laufindex 

Quadratzahl 


Quadratwurzel 


Programmbeschreibung 


Satz 1® - 58 : Überschrift 


Satz 69 : Sprung ins Unterprogramm 2P8® 
zum Abwarten 


78 -118 : Berechnung und Ausgabe der interes- 
sierenden Werte 


Satz 188: Nach je 15 Zeilen Sprung 
ins Unterprogramm 299% 
zum Abwarten 


128 : Ende des Hauptprogramms 


1888-1828 : Unterprogramm zur Ausgabe der Ta- 
bellen-Kopfzeile 


2909-2958 : Unterprogramm zum Abwarten 
Satz 29819: Ausgabe einer Meldung 


Satz 2929: Abwarten einer Tasten- 
eingabe 


Satz 2839-2959: 


Ist die Tasteneingabe er- 
folgt, Löschen des Bild- 
schirms, Ausgabe einer 
neuen Kopfzeile durch Sprung 
ins UP 19088 und danach Rück- 
kehr ins Hauptprogramm. 


voß Kapitel Mathematik II 


Abschnitt 7 : Tafel 2 
Schule 


9 I Mathen. 
. Tafel 2 


Problemstellung 


Dieses Programm dient zur tabellarischen Ausgabe 
der Winkelfunktionen 

- Sinus (SIN) 

- Cosinus (coS) 

- Tangens (TAN) 


Diese Winkelfunktionen werden in Abhängigkeit von 
Einheiten des Kreisparameters 7 (im Programm Pi ge- 
nannt) ausgegeben. Deshalb werden in der sich erge- 
benden Tabelle auch Winkelgrade angegeben. 


Problemanalyse 


Auch hier ist eine Problemanalyse nicht erforder- 
lich, weil keine besonderen Schwierigkeiten auf- 
tauchen. 


Voß Kapitel 9 Mathematik II 


Abschnitt 7 Tafel 2 
Schule 


Programm: 


10 REM Z&6-TAFELE 

20 CLS 

30 FRINT TAB(11) "ZAHLENTAFEL Z":FRINT:FRINT 
40 FRINT"FROGRAMM ZUR BESTIMMUNG DER WERTE DER" 
50 FPRINT"WINEELFUNETIONEN 2": PRINT 

60 FRINT TAB(11)"SINUS (SIN)" 

70 FRINT TAB(11)"COSINUS (COS) " 

80 FRINT TAB(11)"TANGENS (TANI" 

85 FRINT:FRINT 

90 GOSUB ZOOO:REM WARTEN 

100 FOR J=0 TO 40 

102 I=J/10 

105 A=(360#1) / (2% (22/7)) :A=INT (A+0.5) 

110 B=SIN(I) 

120 C=COS(I) 

130 D=TAN(I) 


35 PRINT USING "##.#"3 I: FRINT TAB(6) USING "###. 
HRR":A; : 


LES RET NER RORAAN PART "ARTE BRHNETNEnnCHdel 


137 IF J=0 THEN 150 

140 IF J/10=INT (J/10) THEN GOSUB 2000 
150 NEXT J 

160 FRINT:FRINT"ENDE DER AUSGABE": END 
1000 REM UF KOFFZEILE 

ISO ERINTEPRINT" ml GRAD SIN 


1020 RETURN 
2000 REM UF WARTEN 
g010 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN ! 


2020 A$=INKEYF:IF At="" THEN 2020 
2030 CLS 

2040 GOSUB 1000 

2050 RETURN 


Voß Kapitel 9 Mathematik II 


Abschnitt 7 Tafel 2 
Schule 


Variablenliste: 


Winkel (in Grad) 

Stringvariable für Tasteneingabe 

Sinus 

Cosinus 

Tangens 

J/18 (=Abszissenwert der Winkelfunktionen) 
Laufindex (hier 8-49) 


Programmbeschreibung: 


Satz 18 - 8 : Überschrift 


Satz 95 : Sprung ins Unterprogramm 29%8 
zum Abwarten 


Satz 199-159 Berechnungen und Ausgabe der Er- 
gebnisse. 


Es werden 41 Tabellenwerte bestimmt 
(J=ß TO 48), wobei die Winkelfunktio- 
nen auf I=J/1@® angewandt werden 

(Satz 192). 


Satz 185: Umwandlung in Winkelgrad 
Satz 119-139: 


Bestimmung von sin, cos 
und tan 


Satz 135-137: Ausgabe 


Satz "14p: Sprung ins Unterprogramm 2990 


nach jeder 19. Runde. (Um bei 
J=® diesen Sprung zu vermeiden, 
der dann noch nicht sinnvoll 
ist, wird in Satz 137 für J=9 
zum Satz 15® gesprungen). 


Kapitel 


9 Mathematik II 


Abschnitt 7 Tafel 2 


Satz 169 : 


Satz 1909-1929 : 


Satz 2909-2959 


Ende des Hauptprogramms 


Unterprogramm zur Ausgabe der 
Tabellen-Kopfzeile 


Unterprogramm zum Warten 


(Beschreibung siehe Programm 
Z6-TAFEL1). 


Kapitel 9 Mathematik II 
Abschnitt 8 Tafel 3 


Mathem. 


Tafel 3 


Problemstellung 


Das folgende Programm dient zur Ausgabe der natür- 
lichen Logarithmen 1In(X) im Wertebereich für X 
zwischen 1 und 1g@. 


Problemanalyse 


Auch hier ist eine Problemanalyse wegen der Schlicht- 


heit der Fragestellung entbehrlich. 


voß Kapitel 9 Mathematik II 


Abschnitt 8 Tafel 3 
Schule 


Programm: 


10 REM Z7-TAFELS 

20 CLS 

30 FRINT TAB(13) "ZAHLENTAFEL 3":FRINT:PRINT 

40 FRINT"FROGRAMM ZUR BESTIMMUNG DER WERTE DER" 

50 FRINT TAB (8) "NATUERLICHEN LOGARITHMEN" 

eg .ERENTEPRINTEPRINT TAB(10) "FROF.DR.W.VOSS, 1984" 


70 GUSUB 2000 

80 FOR I=1 TO 100 

85 L=LOG (ID) 

FF USING "####"; I; :FRINT TAB(8) USING "#HH.# 


100 IF I/15=INT (1/15) THEN GOSUB 2000 

110 NEXT I 

120 FRINT:FRINT:FRINT"ENDE DER AUSGABE": END 

1000 REM UF KOFFZEILE 

1010 FRINT:FRINT" ZAHL LOGARITHMUS" : FRINT 

1020 RETURN 

2000 REM UP WARTEN 

5010 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN ! 


2020 A$=INKEYF:IF Af="" THEN 2020 
2030 CL.S 

2040 GOSUB 1000 

2050 RETURN 


Kapitel 9 : Mathematik II 
Abschnitt 98 Tafel 3 


, Voß 


Schule 


Variablenliste: 


Stringvariable für Tasteneingabe 
Laufindex (hier 1-19@) 


Natürlicher Logarithmus von I 


Programmbeschreibung: 


18 - 68 : Überschrift 


798 : Sprung ins Unterprogramm 299% 
zum Abwarten 


88 -118 : Berechnungen der Logarithmen und 
Ausgabe; 


nach jeder 15. Tabellenzeile Sprung 
ins Unterprogramm 28908 zum Warten 


Satz 129 : Beendigung des Hauptprogramms 


Satz 198-1928 : Unterprogramm zur Ausgabe einer 
Tabellen-Kopfzeile 


Satz 2909-2059 ; Unterprogramm zum Abwarten 
(Beschreibung siehe Programm 
26-TAFEL1). 


Voß Kapitel : Mathematik II 


9 
Abschnitt 9 : Ellipse 
Schule 


SR 


Problemstellung 


Das Programm zeichnet eine beliebige Ellipse. 
Dabei sind folgende Werte einzugeben: 


Spalte des Ellipsenmittelpunkts 
(98-319) 


Zeile des Ellipsenmittelpunkts 
(28-199) 


Erste Halbachse der Ellipse 
Zweite Halbachse der Ellipse 


Kapitel Mathematik II 
Abschnitt 9 : Ellipse 


Problemanalyse 


Die Ellipsengleichung lautet in der sog. Mittel- 
punkt-Schreibweise (Ellipsenmittelpunkt im Koordi- 
natenursprung): 


x? .y® 
a 'b 


Um eine derartige Funktion per BASIC-Programm zeich- 
nen zu können, müssen wir sie nach y auflösen, wobei 


sich ergibt: 


Wenn wir nun berücksichtigen, daß eine beliebige Ellip- 
se die Koordinaten (T,Z) und nicht immer nur (9,9) 

als Mittelpunktkoordinaten aufweist, so sind Verschie- 
bungskorrekturen erforderlich (vergl. die folgende 
Programmbeschreibung). 


voß Kapitel Mathematik II 


Abschnitt Ellipse 
Schule 


Programm: 


REM Z8-ELLIPSE 
CLS 


FRINT"FROGRAMM ZUM ZEICHNEN EINER BELIEBIGEN" 
FRINT TAB(16) "ELLIFSE. " 
FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
FRINT:FRINT:PRINT:FRINT 
FRINT"DIESES FROGRAMM BENDETIGT ALS INFPUT-" 
FRINT" INFORMATIONEN :":FRINT 
FRINT"KOORDINATEN DES MITTELFUNKTS : "=:FRINT 
FRINT TAB(S5) 35: INFUT"X-WERT (SPALTE) ST 
FRINT TAB(5) 35: INFUT"Y-WERT (ZEILE) e.usZ 
FRINT: INFUT"ERSTE HALBACHSE A H 

FRINT: INFUT"ZWEITE HALBACHSE B : 

CLS 

FLOT 0,0:DRAW 639,0 

FLOT 0,0:DRAW 0,3997 

FLOT 0,Z:DRAW 639,2 

FLOT T,Ö:DRAW T,399 

REM EL.LIFSE 

C=T-A:D=T+A 

IF C£iO THEN C=Ö 

IF D:639 THEN D=639 

FOR X=C+1 TO D-1 

DS= (B/A) #SOR (AXA- (X-T) 2) 

Y=Z+DS 

IF YiO OR Y:399 THEN 480 

FLOT X,Y 

NEXT X 

FOR X=D-1 TO C+1 STEF -1i 

DS= (B/A) #SUR (AHA- (X-TI"D 

Y=Z-DS 

IF Y<ö OR Y:>399 THEN 540 

FLOT X,Y 

NEXT X 

LOCATE 5,23:FRINT"ENDE DER AUSGARE":END 


Voß Kapitel 9 : Mathematik II 


Abschnitt 9 : Ellipse 
Schule 


Variablenliste: 


Erste Halbachse der Ellipse 

Zweite Halbachse der Ellipse 

Linker Extremwert der Ellipse 
Rechter Extremwert der Ellipse 
Hilfsgröße aus der Ellipsengleichung 
Spalte des Ellipsenmittelpunkts 
Abszissenwert 

Ordinatenwert 


Zeile des Ellipsenmittelpunkts 


Programmbeschreibung 


Satz 19- 69 : Überschrift 


Satz 69-125 Vorgabe der Mittelpunktkoordi- 


naten und der Halbachsen 


13% Löschen des Bildschirms 

149-158 Zeichnen des Achsenkreuzes 

168-179 : Zeichnen eines zweiten Achsen- 
kreuzes, dessen Achsen durch den 
Ellipsenmittelpunkt laufen 

398-489 Zeichnen der oberen Ellipsenhälfte 

498-549 : Zeichnen der unteren Ellipsenhälfte 


558 : Beendigung des Programms 


Kapitel 9 Mathematik II 
Abschnitt 10 Gauß 


Gauß'sche sche 
Q, 10 Normalverteilung 


Problemstellun 


Dieses Programm stellt die Gauß’sche Normalvertei- 
lung graphisch dar. 
Sie hat die Dichtefunktion 


Dabei sind MM und SS die charakterisierenden Lage- 
parameter (siehe folgende Skizze): 


MM bezeichnet den Mittelwert der Verteilung 


SS bezeichnet die Streuung der Verteilung 
(Standardabweichung = Abstand zwischen 
dem Lot im Mittelwert und einem der bei- 
den Wendepunkte der Verteilung). 


Kapitel 9 Mathematik II 
Abschnitt 10 Gauß 


In diesem Programm haben wir vorgegeben: 


MM 160 
ss 40 


Problemanalyse 


Hier wiederum entbehrlich. 


Kapitel 9 Mathematik II 
Abschnitt 10 Gauß 


10 REM Z9-GAUSS, 

20 CLS 

30 FRINT"FROGRAMM ZUM ZEICHNEN EINER GAUSS SCHEN" 
40 FRINT TAB(11) "NORMALVERTEILUNG. " 


TOgERINT:PRINT:PRINTEPRINT TAB (9) "FROF.DR.W.VOSS, 


60 FRINT:FRINT:FRINT:FRINT 

70 FRINT"DIESES FROGRAMM ZEICHNET EINE NORMAL. -" 
80 FRINT"VERTEILUNG MIT DEM MITTELWERT Z00 UND" 
90 FRINT"DER STANDARDABWEICHUNG 60. ":FRINT 

100 FRINT"DIESE WERTE KOENNEN GGF. GEAENDERT WER-" 
110 FRINT TAB(10)"DEN. (SIEHE SATZ 120)" 

115 GOSUB 1000:REM WARTEN 

120 MM=200:55=60 

120 CLS 

140 FLOT 0,0:DRAW 400,0 

150 FLOT 200,0:DRAW 200,300 

390 REM NORMALVERTEILUNG 

400 A=1/ (SS#SOR (2% (22/7))) 

410 FOR X=0 TO 400 

420 B=((X-MM) /S5)*E 

20 B=0.5%*B#(-1) 

440 Y=A#EXF(B) 

450 Y=(2000000/85)#Y 

460 IF YiO OR Y:>399 THEN 480 

470 FLOT X,Y 

480 NEXT X 

490 FRINT"ENDE DER AUSGABE":END 

1000 REM UF WARTEN 

1010 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN ! 


1020 A$=INKEY$: IF At="" THEN 1020 
1030 CLS: RETURN 


Voß Kapitel 9 Mathematik II 


Abschnitt 10 Gauß 
Schule 


Variablenliste: 


Erster Term der Funktionalgleichung 
Stringvariable für Tasteneingabe 
Exponent in der Funktionalgleichung 
Mittelwert der Normalverteilung 
Standardabweichung der Normalverteilung 
Abszissenwert 


Ordinatenwert 


Programmbeschreibung 


Satz 198-118 : Überschrift und Erläuterungen 
Satz 115 : Abwarten 


Satz 129-138 Vorgabe der Funktionalparameter 
der Verteilung und Löschen des 


Bildschirms 
148-158 : Zeichnen eines Achsenkreuzes 


398-489 : Errechnen der Ordinatenwerte der 
Normalverteilung, Normierung (Satz 


45%) und graphische Ausgabe 
498 : Ende des Programms 


1888-1838 : Unterprogramm zum Akwarten 


Kapitel 9 Mathematik II 
Abschnitt 11 Regression 


Ö 11 Regression 
A BEPESSEEIEMEEREBRE 


Problemstellung 


Die Regressionsrechnung ist eine wichtige 
Aufgabenstellung aus dem Bereich der mathematischen 
Statistik. Es geht dabei darum, eine bivariate sta- 
tistische Verteilung durch eine zusammenfassende ma- 
thematische Funktion, die im einfachsten Fall eine 


Gerade ist, zu beschreiben. 


Eine bivariate statistische Verteilung entsteht bei- 
spielsweise dann, wenn wir eine gegebene Population 
nach zwei Merkmalen gleichzeitig untersuchen, wenn 
wir also zum Beispiel eine Reihe von Untersuchungsper- 
sonen nach Körpergröße und Körpergewicht gleichzeitig 


befragen. 


Ziel einer solchen Untersuchung ist es, festzustellen, 
ob zwischen den beiden Variablen ein Zusammenhang be- 


steht. 


Eine solche bivariate Verteilung läßt sich anschaulich 
als "Punktwolke" in einem zweidimensionalen Koordina- 

tensystem darstellen, wie es die folgende Skizze ver- 

deutlicht. 
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Um nun die Art des Zusammenhangs zwischen beiden 


Variablen zu beschreiben, bzw. um bei einer Zeit- 


reihe den linearen Trend zu bestimmen, was mathema- 


tisch die gleiche Aufgabe ist, versucht man, in 
die Punkte im Achsenkreuz möglichst gut eine lineare 
mathematische Funktion hineinzulegen. 


Entsprechend gibt es auch nichtlineare Berechnungs- 
ansätze, auf die aber hier nicht eingegangen werden 
soll. 
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Problemanalyse 


Die einzuzeichnende lineare oder nichtlineare 


Funktion bestimmt man in der Regel mit der Methode 
der kleinsten Quadrate. 


Diese Methode gibt eine Rechenvorschrift an zur Bestim- 
mung der Parameter der anzupassenden Funktion. Bei 
einer Geraden handelt es sich dabei um den Ordinaten- 
abschnitt A und die Steigung B. 


Die Methode der kleinsten Quadrate verlangt, daß diese 
beiden Parameter so zu bestimmen sind, daß die Summe 
der quadrierten Abweichungen zwischen den beobachteten 
Y-Werten Y; (senkrechte Koordinaten) und den auf der 
Gerade liegenden Y-Werten vi“ zu minimieren ist, also: 


2 
Zi, - y,) 


Da die Werte 7 sich gemäß der Geradengleichung wie 
folgt berechnen 


ergibt sich aus der obigen Minimierungsregel 
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Das Minimum dieser Beziehung findet man, indem man 
sie partiell nach den Größen a und b differenziert 
und diese beiden ersten partiellen Ableitungen gleich 
null setzt. 


Auf diese Weise erhält man zwei Gleichungen mit zwei 
Unbekannten (a und b), die man nach eben diesen Unbe- 
kannten auflösen kann. Damit erhält man die folgenden 
beiden Bestimmungsgleichungen für a und b : 


n ZI RS, 5 En Sy; 


nn - (2) 
2% I% 


b * 
n n 


Das zu entwickelnde BASIC-Programm dient dazu, 

für beliebig einzugebende Wertepaare 

xXıYı diese beiden Parameter nach der Methode der 
kleinsten Quadrate zu errechnen und als Ergebnisse aus- 


zugeben. 
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Programm: 


10 REM Z10-REGRESSION 

20 CLS 

30 FRINT"FROGRAMM ZUR BESTIMMUNG DER PARAMETER" 
40 FRINT"EINER LINEAREN REGRESSIONSFUNKTION BZW." 
50 FRINT TAB(6) "EINER LINEAREN TRENDLINIE." 

60 FRINT:FRINT=:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
70 FRINT=:FRINT:PRINT:FRINT:PRINT 

80 FRINT"DIESES FROGRAMM BENOETIGT WERTEFAARE" 

90 FRINT"ALS INFUT-INFORMATIONEN (Z.B. X- UND Y-" 
100 FRINT"WERTE ODER ZEIT- UND MERKMALSWERTE USW.) 


110 GOSUB 1000 :REM WARTEN 
120 INFUT"WIEVIELE WERTEFAARE : ";N 
130 DIM X(N),Y(N) 
140 FRINT:PRINT TAB(S) "EINGABE : ":FRINT:FRINT 
150 FOR I=1 TO N 
160 FRINT I;".FAAR X,Y =: "z21INPUT X(ID),Y(I) 
170 NEXT I 
172 CLS:FRINT"KONTROLLE":FRINT:FRINT 
174 FRINT"NR. X-WERT Y-WERT":FRINT 
176 FOR I=1 TO N:FRINT I,X(I),Y(D 
178 IF I1/10=INT (1/10) THEN GOSUB 1000 
179 NEXT I 
180 REM REGRESSION 
185 GOSUB 1000:REM WARTEN 
190 FOR I=1 TON 
200 S1=S51+X(I)#Y(TD) 
210 S2=S2+X (I) :S3=S3+Y(D) 
220 54=54+X(I)#X (I) 
30 NEXT I 
240 B=(N#S1-S2*S3) / (N*54-52+52) 
250 A=S3/N-B#S2/N 
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265 CLS 

270 FRINT"ERGEBNIS : ":FRINT:PRINT 

280 FRINT"ORDINATENABSCHNITT A = "5 

290 FRINT:FRINT"STEIGUNG i ":B 

300 FRINT:FRINT:FRINT:FRINT 

=10 FRINT"MIT DIESEN FARAMETERN KANN NUN DAS FRO-" 
320 FRINT"GRAMM ZUM ZEICHNEN EINER GERADEN AUFGE-" 
>30 FRINT"RUFEN WERDEN, WENN MAN DAS ERGEBNIS " 
740 FRINT"AUCH GRAFHISCH VERANSCHAULICHEN MOECHTE. 


>50 FRINT:FRINT:FRINT"ENDE DER AUSGABE" :END 
1000 REM UF WARTEN 
1010 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN ! 


1020 AF=INKEY£: IF At="" THEN 1020 
1030 CLS 
1040 RETURN 


voß Kapitel 9 Mathematik II 
Abschnitt 11 Regression 


Schule 


Variablenliste: 


Ordinatenabschnitt der Geraden 
Stringvariable für Tastatureingabe 
Steigung der Geraden 

Laufindex 


zahl der Wertepaare 


” Hilfssummen zur Berechnung von B und A 


J 


Abszissenwert 


Ordinatenwert 
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Programmbeschreibung: 


18-119 : Überschrift, Erläuterungen und Warten. 


128-138 : Angabe der Zahl der Paare von Merk- 


malswerten und Dimensüonierung. 
148-178 : Eingabe der Merkmalswerte über INPUT. 
172-179 : Kontrollausgabe der Paare von Merk- 
malswerten mit Pause nach jedem zehn- 
ten Paar. 
188-185 : Warten. 
198-239 : Bildung der vier Summen, die in den 
Berechnungsformeln Für A und B benö- 


tigt werden. 


249-259 : Berechnung der Geradenparameter A 
und B. 


265-388 : Ergebnisausgabe. 


318-358 : Verzweigungshinweis und Beendigung 
des Programms. 


Satz 1ddd-1@48 : Unterprogramm Warten. 
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Ö 1 2 Permutationen 
” RERE EEE 


Problemstellung 


Die Berechnung von Permutationen beantwortet die 
Frage, auf wieviele unterschiedliche Arten verschie- 


dene Elemente angeordnet werden können. 


Problemanalyse 


Haben wir beispielsweise drei verschiedene Elemente 
a, b und c, so sind die folgenden Anordnungsmöglich- 
keiten voneinander unterscheidbar : 


abc, acb, bac, bca, cab, cba 


Bei drei Elementen gibt es also sechs verschiedene 


Anoränungsmöglichkeiten. 


Aligemein gilt die folgende Überlegung : 
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Für das erste von drei Elementen gibt es drei Möglich- 
keiten : Es kann an erster, an zweiter .oder an dritter 
Stelle stehen; 


für das zweite Element gibt es dann nur noch zwei Mög- 
lichkeiten, wenn entschieden worden ist, wo das erste 
Element stehen soll. 


Dies bedeutet aber, daß es für die ersten beiden Ele- 
mente zusammen 3*2 = 6 Möglichkeiten gibt. 


Für das dritte Element gibt es dann nur noch eine Mög- 
lichkeit una für alle drei Elemente also 3%2*1 = 6 
verschiedene Anoränungsmöglichkeiten. 


Hat man nun n verschiedene Elemente, so ergibt sich 


entsprechend 


Zahl der Anordnungsmöglichkeiten = 


n*(n-1)*(n-2)*(n-3)* „.. * 3*2%*1 


Diese Produktkette kürzt man ab durch die Schreibweise 
n! (sprich n-Fakultät) und sagt, daß n verschiedene 
Elemente auf n-Fakultät verschiedene Arten angeordnet 


werden können, oder 


Permutation von n verschiedenen Elementen ist 
n-Fakultät (n!). 

Es ist zu beachten, daß bei großen Werten für n 
der Ausaruck n! rasch sehr groß wird, und zwar 

so rasch ansteigend, daß schon ab n = 34 der Rech- 
ner das Ergebnis 34! nicht mehr darstellen kann. 


Voß 


Schule 
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10 REM Z11-FERMUTATIONEN 

20 CLS 

20 PRINT"FROGRAMM ZUR BESTIMMUNG DER ANZAHL DER" 
40 FRINT"FERMUTATIONEN VON N VERSCHIEDENEN ELE-" 
SO FRINT TAB(S)"MENTEN (= N-FAKULTAET = N'!)" 

60 FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
70 FRINT:FRINT:FRINT:PRINT 

80 INPUT"ZAHL DER ELEMENTE N : ";N 

90 F=N 

Balken ädr geh FRINT"N IST ZU GROSS FUER DIESEN 


110 FOR I=N-1 TO 1 STEF -1 

120 F=F#I 

130 NEXT I 

140 FRINT:FRINT"FAKULTAET VON "3N5" IST "zP 

150 _FRINT:FRINT=EFRINT"NO IN N N ? (9/ND"z 
Imre NT I NT CH EINE RECHNUNG J/N) 


160 IF At="J" THEN CLS:G0TO 80 
170 FRINT=:FRINT:FRINT"ENDE":END 


Variablenliste: 


Ag 


I 
N 
P 


Stringvariable für Antworten 
Laufindex (Faktoren des Produkts) 
zahl der Elemente 

Zwischen- und Endprodukt 
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Programmbeschreibung: 


Überschrift und Erläuterungen. 


Anforderung der Inputinformation (Zahl 
der zu permutierenden Elemente N) und 
Belegung des Produktfeldes P mit dem 
Wert im Feld N als erstem Faktor der 
zu bildenden Proäuktkette. 


Meldung,wenn N gleich oder größer 34 
ist, weil dazu die Rechenkapazitäten 
nicht ausreichen und Sprung nach 15g. 


118-138 : "Bildung der Produktkette im Feld Pp. 

148 : Ergebnisausgabe. 

158-17% : Beendigung des Programms, es sei denn, 
es wird eine erneute Berechnung ge- 


wünscht (dann weiter bei Satz 8% nach 
Löschen des Bildschirms). 
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Problemstellung 


Eine ähnliche Fragestellung wie im vorangegangenen 
Programm liegt vor, wenn berechnet werden soll, 
auf wieviele verschiedene Arten k Elemente aus n 
verschiedenen Elementen ausgewählt werden können. 


Als Berechnungsformel ergibt sich: 


n! 


Anzahl = XTak)t 


Man nennt diese Größe Binomialkoeffizient und kürzt 
ihn ab mit folgender Schreibweise: 


(2) 


Er entspricht übrigens den Faktoren, die sich bei 
der Auflösung der sog. Binome ergeben: 


(a+b)? a? + 2ab + p? 


= 1a20° + 2a'p! + 1202 


(2)a?p° +2) an) 4 (Sjarb: 
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+ 3a?b + 3ab 


3 


= 1a°’b° + 3a2p! + 32152 4 180p? 


3 3 
= (2)a”p° + (Map! + ()a'n? +(3)a°p? 


Man sieht, daß jedes Binom sich in Summanden zerle- 
gen läßt, wobei es immer ein Summand mehr ist als 
die Hochzahl des Binoms angibt (Hochzahl im letzten 
Beispiel war 3; Zahl der Summanden war 4). 


Jeder Summand besteht aus 3 Faktoren: 


- eine Konstante (der hier interessierende 
Binomialkoeffizient); 


- Faktor "a hoch..." mit einer Hochzahl, die 
von der Binomhochzahl (hier 3) auf @ sinkt; 


- Faktor "b hoch ..." mit einer Hochzahl, die 
von ® zur Binomhochzahl (hier 3) ansteigt. 


Im hier interessierenden Binomialkoeffizienten wiederum 
steht als oberer Wert die Binomhochzahl (hier 3), als 
unterer eine ganze Zahl, die von links nach rechts von 
® bis zur Binomhochzahl ansteigt. 


Das Programm, um das es hier geht, bestimmt beliebige 
Binomialkoeffizienten, so daß wir also mit diesem Pro- 
gramm leicht auch kompliziertere Binome bestimmen kön- 
nen (z.B. (a+b)?). 


Aber auch für Berechnungen kann dieses Programm genutzt 
werden, wie die folgenden beiden Programme zeigen. 


Schließlich kann mit einem derartigen Programm z.B. 
folgende konkrete Frage beantwortet werden: 
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"8 Läufer starten zu einem 18@®-m-Lauf. Auf wieviele 
verschiedene Arten können die ersten drei Plätze 


besetzt werden?" 


Antwort: 
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10 REM Z12-KOMEINATIONEN 

20 CLS 

30 PRINT"FROGRAMM ZUR BESTIMMUNG DER ANZAHL DER" 
40 PRINT"KOMBINATIONEN VON K AUS N ELEMENTEN. " 

50 FRINIT:FRINT:FRINT"MAN SPRICHT IN DIESEM ZUSAMME 
RHAhE DARF 


55 FRINT" DEN SOG. BINOMIALKOEFFIZIENTEN. " 


gan INTEFRINTEFRINTZPRINT TAB (9) "FROF.DR.W.VOSS, 


70 FRINT:FRINT:FRINT:PRINT 

80 INFUT"ZAHL DER ELEMENTE N 

90 INFUT"ZAHL DER AUSZUWAEHLENDEN EK 
100 Y=N-K 

110 IF K=0 OR E=N THEN Bk=1:60T0 210 
120 IF EFN/Z THEN H=Y:Y=K:k=H 

130 GOSUB 500 

140 FX=A:A=N 

150 IF FX=1 THEN FN=N:G0TO 200 

160 FOR I=N-1 TO N-K+1 STEF -1 

170 A=A#I 

180 NEXT I 

190 FN=A 

200 BE=FN/FX 

= FRINTAERINT=FRINT"ANZAHL DER KOMBINATIONEN VON 


220 FRINT N;" ELEMENTEN IST ı ";BE 

230 FRINT:FRINT:FRINT"ENDE DER BERECHNUNGEN" END 
500 REM UF FAK: 

510 A=k. 

520 IF K=0 OR K=1 THEN A=1:60T0 560 

530 FOR I=k-1 TO 1 STEF -1 

540 A=A#I 

550 NEXT I 

560 RETURN 
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Variablenliste: 


A 


Fakultät (Zwischen- und Endprodukt) 
Binimialkoeffizient 

Hilfsgröße beim Tausch von K und Y 

Laufindex (Faktor bei der Fakultätsberechnung) 
Zahl der auszuwählenden Elemente 

zahl der Elemente 

Erste Fakultät im Binomialkoeffizient 

Zweite Fakultät im Binomialkoeffizient 

N-K 
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Programmbeschreibung: 


Satz 18- 78 : Überschrift und Erläuterungen 


Satz 80- 98 : Eingaben (Zahl der Elemente N 
und Zahl der Auszuwählenden K) 


Satz 198 : Belegung der Hilfsgröße Y 


Satz 119 : Vereinfachte Berechnung für 
K=® oder K=N, weil definitions- 
gemäß gilt: 


N 
Get 


Vertauschen von K und (N-K) (=Y), 
falls K> N/2. Dies ist möglich, 
weil gilt: 


N _ __NI __ N 
) KL(N-K)T (nk 


Auf diese Weise werden die folgen- 
den Berechnungen vereinfacht. 


139 : Berechnung von K! im Unter- 
programm 598 


148-198 : Berechnung der anderen Fakultät, 
die nach geeignetem Kürzen (siehe 
z.B. die Rennläufer-Aufgabe oben) 
noch übrig bleibt. 


2089-238 : Berechnung und Ausgabe des Binomial- 
koeffizienten und Beendigung des 
Hauptprogramms 


588-568 : Berechnung von K! in einem Un- 
terprogramm 
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9.14 


lun 


Es soll ein Programm erstellt werden, welches die 
Chancen ausrechnet, beim Lottospiel (6aus 49) zu ge- 


winnen. 


Problemanalyse 


Das Programm berechnet die Wahrscheinlichkeit für 3, 
4, 5 oder 6 Richtige im Zahlenlotto (6 aus 49). 


Die entsprechenden Wahrscheinlichkeiten berechnen 
sich gemäß der folgenden Formel: 


6, 743 
(K)l6&x _ Bi#B2 
(2) © .0B3 


Dabei ist X die vom Benutzer anzugebende "Zahl der 
Richtigen". 

Es muß hier also mit drei B-nomialkoeffizienten 
(B1, B2 und B3) gearbeitet werden, denen wir 


ja schon im vorangegangenen Kapitel begegnet waren. 


Deshalb sind detailliertere Erläuterungen hier ent- 
behrlich. 
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10 REM Z13-LOTTO 

20 CLS 

30 FRINT"FROGRAMM ZUR BESTIMMUNG DER WAHRSCHEIN-" 
40 FRINT"LICHKEIT FUER 3,4,5 ODER 6 RICHTIGE IM" 
50 PRINT TAB(11)"LOTTO (6 AUS 49)." 

GEH INTEPRINTEPRINTEPRINT TAB(9) "FROF.DR.W.VOSS, 


70 PRINT:FRINT:FRINT=:FRINT 
80 FRINT"DIESES FROGRAMM BERUECKSICHTIGT NICHT" 
90 PRINT"DIE MOEGLICHKEIT 5 RICHTIGE MIT ZUSATZ-" 
100 FRINT TAB(17) "ZAHL." 
GOSUR 1000:REM WARTEN 
INPUT "WIEVIELE RICHTIGE "5X 
IF X=6 THEN Bi=1:B2=1:60T0 300 
REM Bi 
IF X=5 THEN- B1=6:B2=43:60T0 300 
Y=6-X 
F=X:FOR I=X-1 TO 1 STEF -1 
F=P#I:NEXT I:Fi=F 
P=Y:FOR I=Y-1 TO 1 STEF -1 
F=P*I:NEXT I 
P2=F 
E1=720/ (Fix*P2) 
REM B2 
X=Y 
P=43 
FOR I=F-1 TO 43-X+1 STEF -1 
P=P#I:NEXT I 
Fi=P 
F=X 
FOR I=X-1 TO 1 STEF -1 
F=F*I:NEXT I 
P2=P:B2=P1/P2 
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REM B3 
F1=49:F2=6 
FOR I=1 TO 5 
Fi=P1%* (49-1) 
F2=F2* (6-1) 
NEXT I 
E3=P1/FZ2:W=(B1*#B2)/B3 
CLS 
FRINT" ERGEBNIS :":FRINT:FRINT 
FRINT"DIE WAHRSCHEINLICHEKEIT FUER "5% 
PRINT"RICHTIGE IM LOTTO BETRAEGT : " 
FRINT:FRINT:FRINT TAB(SIW 
TAN SINTABRTNIZFRINTEPRINTENGEH EINE BERECHNUNG ? 
430 IF A$="J" THEN CLS:60T0 120 
440 FRINT:FRINT:FRINT"ENDE DER BERECHNUNGEN": END 


1000 REM UF WARTEN 
1010 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN ! 


1020 A$=INKEYt: IF At="" THEN 1020 
1030 CLS 
1040 RETURN 
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Variablenliste : 


Ag Stringvariable für Antworteingaben 
Erster Term in der Berechnungsformel 
Zweiter Term in der Berechnungsformel 
Dritter Term in der Berechnungsformel 
Produkt in den Fakultätenberechnungen 
Erste Fakultät im Binomialkoeffizienten 
Zweite Fakultät im Binomialkoeffizienten 
Wahrscheinlichkeit 
Anzahl der "Richtigen" 

6-X 
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Programmbeschreibung: 


Satz 18-188 : Überschrift und Erläuterungen 


Satz 119 Sprung ins Unterprogramm 199® 
zum Warten 


Satz 129 : Eingabe der Zahl der Richtigen 
Satz : Für X=6 gilt, daß B1=B2=1 (siehe 
Programm Z1®); weiter bei Satz 
399 
1398-298 Bestimmung von Bl gemäß der Über- 
legungen wie wir sie aus Programm 
218 schon kennen 


219-298 : Entsprechende Bestimmung des zwei- 
ten Binomialkoeffizienten B2 


388-368 : Entsprechend B3 

369 Berechnung der Wahrscheinlichkeit W 

378-418 : Ausgabe des Ergebnisses 

428-448 : Beendigung des Hauptprogramms, es 
sei denn, es wird eine Alterna- 


tivberechnung gewünscht 


Satz 1®@9-1@049 : Unterprogramm zum Abwarten 
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Binomialverteilung 


Problemstellung 


Die Binomialverteilung ist eine Wahrschein- 
lichkeitsverteilung. Wahrscheinlichkeitsverteilungen 
wiederum dienen dazu, auf möglichst einfache Weise 
auch für kompliziertere Fragestellungen Wahrschein- 


lichkeiten zu berechnen. 


Die binomische Verteilung ist auch deshalb besonders 
wichtig, weil sie als "Grunäbaustein" für eine ganze 
Reihe darauf aufbauender Wahrscheinlichkeitsberech- 


nungsverfahren dient. 


Die binomische Verteilung antwortet auf die folgende 
Frage 


Wie groß ist die Wahrscheinlichkeit, daß bei n von- 
einander unabhängigen Versuchen x,-mal das günstige 
Ereignis eintritt, wenn bei jedem Versuch nur zwei 
Ergebnisse möglich sind, und wenn die Eintrittswahr- 
scheinlichkeit des günstigen Ereignisses bei einem 
Versuch P % beträgt ? 


Ein einfaches Beispiel mag diese Frage etwas veran- 
schaulichen 


voß 
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Wie groß ist die Wahrscheinlichkeit, bei 18 Münzwür- 
fen z.B. 5 Mal "Kopf" zu werfen ? 


Dies ist ein Anwendungsfall der binomischen Verteilung, 
weil bei jedem Versuch zwei Ereignisse möglich sind 
("Kopf" und Zahl") und weil die Versuche (die Wür- 
fe) voneinander unabhängig sind. 


Eine entsprechende Frage wäre beispielsweise : 


Wie groß ist die Wahrscheinlichkeit, daß bei 5 Gebur- 
ten genau 2 Mädchen zur Welt kommen ? 


Problemanalyse 


Zur Analyse des gestellten Problems beschäftigen wir 
uns einmal mit dem zuletzt erwähnten Beispiel : 


Wenn bei fünf Geburten zwei Mädchen zur Welt kommen 
sollen, so wäre beispielsweise folgende "Kinder-Kom- 
bination" günstig im Sinne der Fragestellung : 

MMKKK (M = Mädchen, K = Knabe) 
Günstig wäre aber auch 


KKKMM 


und viele andere Kombinationen. 
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Die Anzahl der insgesamt "günstigen" Kombinationen 
kann mit Hilfe der Permutationsberechnung gefunden 
werden, über die schon gesprochen wurde. 


Ohne dies hier beweisen zu wollen, stellen wir fest, 
daß die Anzahl der Kombinationsmöglichkeiten von 2 
Mädchen und 3 Knaben sich ergibt zu : 


„ _br4r3#2#1 
2*1 * 3*2%*1 


Anzahl 


Allgemein gilt, daß die Anzahl der verschiedenen An- 
ordnungsmöglichkeiten von n Elementen, von denen x 
Stück gleich sinä (im Sinne von "günstig") und weitere 
n-x, ihrerseits gleich sind (im Sinne von "ungünstig") 
sich ergibt zu 


Anzahl = 2 


‚!*(n-x,)! 
x, ( i) 
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Wir gehen bei der weiteren Problemanalyse davon aus, 


daß die Wahrscheinlichkeit einer Mädchengeburt P be- 
trage (P = 6.5) - dies ist die Eintrittswahrschein- 


lichkeit des günstigen Ereignisses bei einem Versuch. 
Betrachten wir nun noch einmal das Ergebnis 


MMKKK 


Wie groß ist die Wahrscheinlichkeit eines solchen Er- 
gebnisses bei fünf Versuchen ? 


Betrachten wir zunächst die erste Mädchengeburt : Ihre 
Wahrscheinlichkeit ist offenbar gleich 9.5. 


Auch die Wahrscheinlichkeit der zweiten Mädchengeburt 
ist 9.5. 


Die Wwahrscheinlichkeit nun dafür, daß die ersten beiden 
Geburten zusammen beides Mädchengeburten sind, beträgt 
Gdann 9.5 * 8.5 (allgemein P * P). 


Die Wahrscheinlichkeit für eine Knabengeburt beträgt 
1- 8.5 (allgemein 1-P). Deshalb ergibt sich nach der 
gleichen Überlegung wie oben, daß die Wahrscheinlich- 
keit dafür, bei der dritten und bei der vierten und 
bei der fünften Geburt Knaben zu erhalten, sich ergibt 
zu 
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(1 - 8.5)*(1 - 8.5)*(1 - 9.5) 


oder allgemein 


(1- P)*(T - P)*(1 - P) 


Für die Kombination MMKRKRK erhalten wir deshalb 
insgesamt die folgende Wahrscheinlichkeit in allge- 


meiner Schreibweise : 


P#P* [LT = PIPPI = P) 


p? (1 


x, 
pic 


In unserem Beispiel würde sich deshalb ergeben 


Wahrscheinlichkeit für MMKKK = 


2 2 


8.52 * (1 - 8.5)” = 1/32 


Nun sind aber in diesem Beisniel 1@ verschiedene 
M,K-Kombinationen günstig im Sinne der Fragestellung. 
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Deshalb ergibt sich die endgültige Wahrscheinlichkeit, 
weil für jede der 19 Kombinationen sich die Einzel- 
wahrscheinlichkeit 1/32 ergibt, zu 


wahrscheinlichkeit für 2 Mädchen bei fünf 
Geburten = 18 * 1/32 = 19/32 = 31.25 % 


Aus diesem Beispiel können wir nun die allgemeine Be- 
rechnungsformel herleiten : 


Die Wahrscheinlichkeit, bei n Versuchen x,-mal das 


günstige Ereignis zu haben, wenn dessen Einzeleintritts- 
wahrscheinlichkeit P beträgt, ergibt sich zu 


n! 


x, !*(n-x,)! 
i i 


Diese Formel sieht recht kompliziert aus, läßt sich 
aber vergleichsweise leicht programmieren. 
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Programm: 


10 REM Z14-EINOMIAL. 

20 CLS 

20 FRINT"FROGRAMM ZUR BERECHNUNG VON WAHRSCHEIN-" 
40 FRINT"LICHKEITEN MIT DER BINOMISCHEN VERTEI-" 
50 FRINT TAB(17) "LUNG." 

60 FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 
70 FRINT:FRINT:FRINT:FRINT 

80 FRINT"MIT DIESEM FROGRAMM BZW. MIT DER BINO-" 
90 FRINT"MISCHEN VERTEILUNG EANN DIE FOLGENDE" 

100 FRINT"FRAGE BEANTWORTET WERDEN :":FRINT 

110 FRINT"WIE GROSS IST DIE WAHRSCHEINLICHKEIT," 
120 FRINT"DASS BEI N VERSUCHEN X-MAL DAS GUENSTI-" 
130 FRINT"GE EREIGNIS EINTRITT, WENN BEI EINEM" 
140 FRINT"VERSUCH DESSEN WAHRSCHEINLICHEEIT F BE-" 
150 FRINT"TRAEGT 7?" 

160 GOSUB 1000:REM WARTEN 

170 FRINT"DIESES FROGRAMM BENOETIGT ALS INFUT-" 
180 FRINT" INFORMATIONEN : ":FRINT 

17° FRINT: INFUT"ZAHL DER VERSUCHE 


300 FRINT: INFUT"ZAHL DER GUENSTIGEN EREIGNISSE: 


220 FRINT=:FRINT"EINTRITTSWAHRSCHEINLICHKEEIT BEI" 
230 INFUT"EINEM VERSUCH (DEZ.) ı "sP 
240 REM BINOMIALKOEFFIZIENT 

245 Y=N-X:C=1-F 

250 IF X=0 OR X=N THEN BE=1:G60T0 360 

260 IF X>N/Z THEN H=Y:Y=X:X=H:6=0:0=F:F=G 

270 F=X:G60SUR 5O0:REM FAK 

290 FX=A:A=N 

295 IF FX=1 THEN PN=N:G0T0O 350 

300 FOR I=N-1 TO N-X+1 STEF -1 

10 A=A#I 

320 NEXT I 


Voß 


Schule 


[a Bu #) 


AA 


479, 
430 
440 
500 
510 
S20 
530 
540 
550 
560 
1000 
1010 
1020 
1030 
1040 
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FN=A 

BE=FN/FX 

W=BE#F"X#O"Y 

ELS 

FRINT" ERGEENIS :":FRINT:FRINT 

FRINT"DIE WAHRSCHEINLICHKEIT, DASS BEI ";N 
FRINT"VERSUCHEN "3%X3" MAL DAS GUENSTIGE" 
FRINT"EREIGNIS EINTRITT, BETRAEGT : " 
FRINT:FRINT:PRINT TAB(SIW 
RRANTZERINT:PRINT"NOCH EINE BERECHNUNG 7? (J/N) 


IF A&="J" THEN CLS:G60T0 190 
FRINT:FRINT:FRINT"ENDE DER BERECHNUNGEN" END 
REM UP FAK 

A=X 

IF X=0 OR X=1 THEN A=1:G60T0 560 

FOR I=X-1 TO 1 STEF-1 

A=A#I 

NEXT I 

RETURN 

REM UF WARTEN 

LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEN ! 


A=INKEYF: IF A$="" THEN 1020 
ELS 
RETURN 
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Variablenliste: 


Produkt bei der Fakultätenberechnung 
Stringvariable für Antworteingabe 
Binomialkoeffizient 

Hilfsgröße (F=X) 

Hilfsgröße beim Tausch von P und Q 
Hilfsgröße beim Tausch von X und Y 
Laufindex 

zahl der Versuche 


Eintrittswahrscheinlichkeit des günstigen 
Ereignisses bei einem Versuch 


Erster Term des Binomialkoeffizienten 
Zweiter Term des Binomialkoeffizienten 
1-P 

Wahrscheinlichkeit 

Zahl der günstigen Ereignisse 

N-X 
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Programmbeschreibung: 


Satz 18-158 : Überschrift und Erläuterungen. 


Satz 168-238 : Warten und danach Eingabe der Input- 
Informationen (Zahl' der Versuche, 
Zahl der günstigen Ereignisse, Ein- 
trittswahrscheinlichkeit). 


Satz 248-358 : Bestimmung des Binomialkoeffizienten : 


245 : Hilfsfelder; 

25% : Ist X=d oder X=1, dann ist der 
BK definiert als 1; weiter bei 
369; 
Ist X> N/2, so ist, um die Kür- 
zungsmöglichkeiten auszunutzen, 
X mit N-X und P mit 1-P zu tau- 
schen. 
Bestimmung von x!; 
Belegung des Nenners von BK (= 
PX) und Neubelegung von A, falls 
Var. A erneut benutzt wird (399); 
Ist der Nenner des BK = 1, so 
ist der Zähler des BK definiert 
als N; weiter bei Satz 358. 

36#-32& : Bestimmung des Zählers des 
Binomialkoeffizienten BK; 

35% : Berechnung von BK. 


Satz 369 ı Berechnung der gesuchten wahrschein- 
lichkeit. 
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Satz 365-418 : Ausgabe des Berechnungsergebnisses. 


Satz 428-499 Beendigung des Programms, es sei 
denn es wird eine erneute Berechnung 
gewünscht (dann nach Löschen des 
Bildschirms zurück zu Satz 199). 


Satz 5$8-569 : Unterprogramin zur Berechnung einer 
Fakultät. 
ee 


Satz 18-148 : Unterprogramm zum Warten. 
BITEIRBE SEES BIENEN ESCHER EERAVEPBEBESFERSTISERNEE REES ER MEE 
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Ö 1 6 Zentrales Grenzwert- 
® Theorem (ZGWT) 


Problemstellun 


Gesetzt den Fall, man zieht aus einer vorliegenden 
Grundgesamtheit eine Zufallsstichprobe vom Umfang 
58 (beispielsweise werden 59 zufällig ausgewählte 
Schüler einer Schule nach ihrer Zufriedenheit mit 


den Lehrern befragt). 


Man kann dann in einer solchen Stichprobe unter- 
schiedliche statistische Maßzahlen berechnen, wie 
beispielsweise ein arithmetisches Mittel (Durch- 
schnittsalter der Schüler oder dergl.). 


Wenn man nun alle verschiedenen Zufallsstichproben vom 
Umfang n=58 ziehen würde, die überhaupt möglich sind 
(kein Mensch wird dies in der Praxis allerdings tun), 
dann erhält man ggf. sehr viele dieser Durchschnitts- 
werte. Zeichnet man die Häufigkeitsverteilung all die- 
ser Mittelwerte auf, so erhält man eine Verteilung, die 
sehr präzise dem Modell der Normalverteilung entspricht, 
unabhängig davon, wie die interessierende Variable (z.B. 
das Alter der Schüler) in der Grundgesamtheit verteilt 
ist, aus der die Stichproben gezogen wurden. 
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Auf diese Weise ist es möglich, wahrscheinlichkeitsbe- 
haftete Aussagen über den Durchschnittswert in nur einer 
einzigen Zufallsstichprobe (und das ist die Praxis) zu 


machen. 


Wir können dann errechnen, in welchen Grenzen der unbe- 


kannte Durchschnitt der Grundgesamtheit mit angebbarer 
Wahrscheinlichkeit (die unter Umständen recht hoch wer- 
den kann; z.B. 96, 95 oder 99 %) liegen muß, wenn ein 

Stichprobenmittelwert in bestimmter Größe festgestellt 


woraen ist. 


Diese Wahrscheinlichkeitsberechnungen sind nur deshalb 
möglich, weil wir die Gültigkeit der Normalverteilung 
unterstellen können, wie es das Zentrale Grenzwerttheo- 
rem von LaPlace und Liapunoff bewiesen hat : 


Parameter von Zufallsstichproben folgen approximativ 
Ger Gauß'schen Normalverteilung, unabhängig davon, wie 


Gie jeweilige Verteilung in der Grunägesamtheit aus- 
sieht. 


An einem einfachen Beispiel erweist das folgende Pro- 
gramm die Gültigkeit dieses Theorems. Es zeigt, daß 
Mittelwerte aus Zufallsstichproben approximativ nor- 
mal verteilt sind, obwohl die Grundgesamtheit, aus der 
aiese Stichproben gezogen werden alles andere als "nor- 


mal" (im Sinne von Gauß) ist. 
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Zur Darstellung des Grenzwerttheorems lassen wir den 
Rechner 18% Zufallsstichproben, jeweils vom Umfang 

n = 58, ziehen. Die Untersuchungsvariable seien Würfel- 
würfe. 


Das heißt also,wir lassen den Rechner 58 Mal würfeln 
unä berechnen die durchschnittliche Augenzahl in die- 


ser Stichprobe; danach würfelt er erneut 58 Mal und 


berechnet den Durchschnitt, würfelt erneut 5% Mal und 
berechnet den Durchschnitt usw. usw., und das alles 
insgesamt 199 Mal. 


Nach dieser Prozeäur liegen 198 Durchschnitte vor, die 
ihrerseits in Form einer Häufigkeitsverteilung durch 
Gen Rechner dargestellt werden können. 


Es wirä sich bei der Ausgabe dieser Häufigkeitsvertei- 
lung zeigen, äaß sie keineswegs mehr dem Modell einer 


Würfel-Augenzahlverteilung entspricht, das ja schema- 
tisch folgendermaßen aussehen müßte : 


# 
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Im Gegenteil : Es wird sich eine Verteilung ergeben, 

die der Normalverteilung recht nahe kommt 

(übrigens ist die Annäherung an das 

Modell der Gauß'schen Normalverteilung gemäß des Zen- 
tralen Grenzwerttheorems um so besser, je größer die 

Zufallsstichproben sind). 


Zusätzlich zur graphischen Veranschaulichung der ent- 
stehenden Häufigkeitsverteilung, berechnen wir auch 
die kennzeichnenden Parameter, nämlich das arithmeti- 
sche Mittel und die Standardabweichung. Dabei gilt : 


2 


n 


Arithmetisches Mittel = 


(entsprechend kann auch ein Mittelwert aller Stichpro- 


benmittelwerte definiert werden); 


Standardabweichung / 3, 3? 


(dabei ist x das jeweilige arithmetische Mittel); ent- 


sprechend kann auch eine Standardabweichung aller 
Stichprobenmittelwerte definiert werden). 
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Im einzelnen ist also folgendes zu tun : 


In dem zu entwickelnden Programm sollen 198 Mal je 
58 Würfelwürfe simuliert werden und aus jeder 5ger 
Serie ist das arithmetische Mittel zu berechnnen. 


Zusätzlich wird der Gesamtmittelwert berechnet und 
darüber hinaus als Streuungsmaß für alle insgesamt 
588% würfelwürfe die Standardabweichung. 


In einem dritten Schritt erstellen wir dann die 
Häufigkeitsverteilung der 188 erzeugten Stichpro- 


benmittelwerte, indem die Mittelwerte in ein Klas- 


sifizierungsraster einsortiert werden, wobei die 
Klassen jeweils 9.1 Einheiten breit sind (dies 
wird sich als zweckmäßige Klassenbreite erweisen). 


Im Anschluß daran wird der Mittelwert und die 
Standardabweichung dieser Häufigkeitsverteilung 
bestimmt und diese beiden Maße werden mit den ent- 
sprechenden Werten, wie sie in Punkt 2. berechnet 
wurden, verglichen. 


Schließlich wird die Häufigkeitsverteilung der 
Stichprobenmittelwerte auch der Anschaulichkeit 
halber graphisch ausgegeben. 


Kapitel Mathematik II 
Abschnitt ZCWT 


Programm: 


90 
100 


10 
IN 


120 
122 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 


REM Z15-ZGWT 

CLS 

FRINT"FROGRAMM ZUR ILLUSTRATION DES ZENTRALEN" 
FRINT"GRENZWERTTHEOREMS (NORMALVERTEILUNG VON" 
FRINT TAB(15) "GAUSS)." 

FRINT:FRINT:FRINT TAB(9)"FROF.DR.W.VOSS, 1984" 

FRINT:FRINT:FRINT:PFRINT:FRINT 

FRINT"DIESES FROGRAMM FUEHRT 100 SERIEN ZU JE" 
FRINT"S50 WUERFELWUERFEN DURCH UND BESTIMMT" 
FRINT"DEN MITTELWERT IN JEDER SERIE." 


gERINT:PRINT"UEBER DIESE MITTELWERTE WIRD DANN 


FRINT"HAEUFIGEEITSVERTEILUNG ERSTELLT." 
GOSUB 1100:REM WARTEN 

N=100 

DIM AM(N) ,„KA(11),KE(11),H(11),W(N,SO) 
FOR I= 1 TON 

S=0 

FOR J=1 TO 50 

W(I,J)=INT.(RND(1)*6+1) 
S=5+W(1,J):55=5S+W(I,J) 

NEXT J 

AM(I)=5/50 

NEXT I 
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ZH FRERTLENERS A FRINIPEINTIDEBRMENES TERWERT " 


216 GOSUB 1100: REM WARTEN 

FOR I=1 TO N:FOR J= 1 TO 50 
S1=S1+(W(I,J)-MW)"ZENEXT JENEXT I 
S9I=SOR (51/ (N#50)) 
FRINT:FRINT"STANDARDABWEICHUNG = "559 
FRINT:FRINT:FRINT=FRINT:FRINT:FRINT 
REM HAEUFIGEEITSVERTEILUNG 

GOSUB 1000: REM ABWARTEN 
FRINT"MITTELWERT IN SO-ER ANZAHL." 
FRINT" SERIEN" 

FOR I=1 TO 30:FRINT"-"3:NEXT I:FRINT 
FOR K=1 TO 10 

EACK)=3+CE-1) 80.1 

KE(K)I=EACK) +O.1 

NEXT K 

FOR I=1 TO N 

FOR K=1 TO 10 

IF AM(DISKE(K) THEN H(K)=H(K)+1:G0T0O 350 
NEXT E 

H(il)=H(1D) +1 

NEXT I 

FOR K=1 TO 10 

FRINT KA(K)STAB(6)" BIS UNTER ":KE(K)STAB(ZSIH 


a 


Ne BUND N 
Oo OND 


ug 
fo} 


NEXT E 


Kapitel 9 : Mathematik II 
Abschnitt 16 : ZGWT 


385 FRINT TAB(11)"VEBER ";KE(10);TAB(ZEIH(1DD 

390 REM MITTELWERT DER SF'V 

400 S=0 

410 FOR J=1 TON 

420 5=S+AM(J) 

430 NEXT J 

440 A=5/N 

452 FRINT:FRINT=SFRINT"MITTELWERT DER VERTEILUNG : 


455 REM STREUUNG DER SFV 
460 S=0 

470 FOR J=1 TON 

480 5=5+ (AM(JI-A) “2 

490 NEXT J 

500 en 


s10, THERINTAERINTESTBEUUNG DER VERTEILUNG 
7 BANTEEFANT EEEANDARTEE 


515 GOSUB 1000: REM en 
520 ERINTARRINTEFRINT" GEGENUEBERSTELLUNG : "t 
FRINT:PRINT 

57 


oO FRINT TAB (20) "WUERFEL GAUSS" :FRINT 


FEN PRINT TMILZERM RTSHRERANT AaRIzO USING "HH. #4" 


W3  FRINT 030) USING 


SAR-FESNTERINN T DREANGHRERINT. anag? SINE TH 
580 GOSUB 1000:REM WARTEN 
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600 REM GRAFHIK. 

610 FLOT 0,80 

620 DRAW 600,80 

630 FOR K=1 TO 11 

640 E=20: A=E-H(K):IF AiS THEN A=3 
645 LOCATE 3#K-1,A-2:FRINT H(K) 
650 FOR J= A TO E 

660 LOCATE 3*K,J: PRINT CHR& (143) 
670 NEXT J 

680 NEXT K 

730 LOCATE 5,23 

740 FRINT"ENDE DER AUSGABE":END 
1000 REM UP ABWARTEN 


010 LOCATE 5,23:FRINT"BITTE EINE TASTE DRUECKEEN ! 


1020 A$#=INKEY£:IF A$="" THEN 1020 
1030 CLS 
1040 RETURN 
1100 REM UF WARTEN 
10 FRINTZFRINTZFRINT TAB(7) "BITTE WARTEN, ICH RE 
Ah FEATLFERAN GE u 


1120 RETURN 
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Variablenliste: 


A Mittelwert aller Mittelwerte, 
später Anfangsadresse zum Zeichnen 


Stichprobenmittelwert 
Stringvariable (Antworteingabe) 
Endadresse beim Zeichnen 
Häufigkeit 

Laufindex (Serie Nr.) 

Laufindex (Wurf Nr.) 

Laufindex (Klasse) 
Klassenanfangspunkt 
Klassenendpunkt 
Gesamtmittelwert 

zahl der Würfe 

Seriensumme 

Gesamtsumme (Später Standardabweichung) 
Quadratsumnme 
Standardabweichung 


würfelwurf 
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Programmbeschreibung: 


Satz 19-128 


Satz 122 


Satz 125-138 


Satz 149-219 


Satz 215 


Satz 216 


Überschrift und Erläuterungen. 


Warten (per Unterprogramm 11g9@). 


: Angabe der Zahl der zu ziehenden Stich- 


proben und Dimensionierung der benötig- 


ten Variablenfelder (es wird dabei ein 
Stichprobenumfang von 58 unterstellt). 


Erzeugung von 188 Stichproben zu je 58 
würfelwürfen : 


158 : Belegung eines Summenfeldes S mit 
dem Wert 8; 
168-198 : Es wird 58 Mal gewürfelt. 

176 : Würfelwurf; 

188 : Bildung der stichprobeninter- 
nen Augensumme S und der Ge- 
samtsumme SS; 

288 : Bestimmung des Stichpräbenmittel- 
wertes AM. 


: Errechnung des Gesamtmittelwertes MW 


und Ausgabe. 
Abwarten. 
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Satz 217-225 


Satz 227-239 


Satz 249-269 


Satz 279-388 


Bildung der Gesamt-Standardabweichung 
als Maß der Streuung der Augenzahlen 
und Ausgape dieses Maßes. 


Addition aller quadrierten Abwei- 
chungen der Augenzahlen vom Ge- 
samtmittelwert im Feld S1; 
223 : Berechnung der Standardabweichung; 
225 : Ausgabe des Ergebnisses. 


Warten. 


Ausgabe einer Tabellenüberschrift für 
die Häufigkeitsverteilung der Stichpro- 


benmittelwerte. 


Bestimmung der Klassenuntergrenzen (KA) 
und der Klassenobergrenzen (KE) für die 
zu erzeugende Häufigkeitsverteilung 
(Klassenbreite = 8.1). 
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Satz 319-35& 


'Satz 368-385 


Satz 396-458 


Einordnen der Stichprobenmittelwerte in 
die Häufigkeitsklassen; 


Vorgabe eines Mittelwerts (von den 
insgesamt 188 Mittelwerten) ; 
Vorgabe einer Häufigkeitsklasse 
(von,den insgesamt 1@ Klassen); 
Ist der Mittelwert kleiner als die 
Klassenobergrenze KE, so ist er in 
diese Klasse einzuordnen (H=H+1); 
dann weiter bei 358 (nächster Mit- 
telwert); wenn nicht, weiter bei 
34% (nächste Klasse); 


348 : nächste Klasse; 
345 Besetzung einer Restklasse 


358 : nächster Mittelwert 


: Ausgabe der Häufigkeitsverteilung 


Berechnung des Mittelwerts aller Stich- 
probenmittelwerte (= Mittelwert der sog. 
Stichprobenverteilung) : 


488 : Summenfelä S = g; 


418-438 : Aufsummierung aller Stichpro- 


benmittelwerte AM; 
448 : Berechnung des Gesamtmittels A; 
458 : Ausgabe von A. 
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Satz 455-518 : Berechnung der Streuung aller Stichpro- 
benmittelwerte (= sog. Stichprobenfeh- 
ler) : 


46% : Summenfeld S = $; 

478-498 : Bildung der Summe aller qua- 
drierten Abweichungen 
zwischen Stichprobenmittelwerten 
und Gesamtmittelwert; 
Berechnung der Standardabweichung 
(= Streuung der Stichprobenvertei- 
lung); 


51% : Ausgabe. 


518-578 : Gegenüberstellung der einzelnen errech- 
neten Maßzahlen. 


538 : Warten. 


688-768 : Erzeugung des graphischen Abbildäs der 
Häufigkeitsverteilung : 


618-628 : Zeichnen eines waagrechten 
Strichs; 
638 : Vorgabe einer Häufigkeitsklasse; 


voß Kapitel : Mathematik II 


Abschnitt 16 ZGWT 
Schule 


Bestimmung des Endpunktes 


und des Anfangspunktes des 
zu zeichnenden Balkens, der 
die jeweilige Häufigkeit re- 


präsentieren soll; 
645 : Ausgabe der Häufigkeit; 
658-678: Zeichnen des Balkens 


688 : Nächste Klasse 


Satz 739-748 : Beendigung des Programms 


Satz 1886-1848 : Unterprogramm Warten 


Satz 1188-112& : Unterprogramm Wartemeldung 
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Wenn dieses Programm gestartet wird, dann benötigt es 
zunächst ca. 3 Minuten, um das erste Zufallsergebnis 
zu produzieren : 

GESAMTMITTELWERT = 3,5218 


Nach weiteren 5 Minuten meldet der Rechner dann 


STANDARDABWEICHUNG = 1.78573292 


Bei einem völlig korrekten Würfel liegt übrigens der 
zu erwartende Mittelwert bei 3.5 und die zu erwartende 
Standardabweichung bei 1.788. 


Danach ergibt sich die folgende Häufigkeitsverteilung, 
die wohlgemerkt ein Zufallsergebnis darstellt 


MITTELWERT IN 5@-ER 
SERIEN 


vosauvuPwm-— 


WW WW WW WW WW 
VvousuauPwmu 


DB WWW WW WW WW 


MITTELWERT DER VERTEILUNG 
STREUUNG DER VERTEILUNG 
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Weiterhin gibt er Rechner aus 


GEGENÜBERSTELLUNG 


WUERFEL GAUSS 
MITTELWERT 3.52 3.52 
STREUUNG 1.71 .23 


Wir erkennen, daß die Streuung der Stichprobenvertei- 
lung, die - wie schon erwähnt wurde - annäherungs- 
weise aer Gauss'schen Normalverteilung entspricht, sehr 
viel kleiner ist als die der ursprünglichen Verteilung. 
Darauf beruht letzten Endes die Präzision, die bei Hoch- 


rechnungen, ausgehend von Zufallsstichproben, erreicht 


werden kann. 
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Das Zentrale Grenzwerttheorem beweist u.a. die folgenden 
Beziehungen 


Mittelwert der Mittelwert der 
Stichprobenver- Grundgesamtheit 
teilung 


3,52 3.52 


Streuung der Streuung der 

Stichproben- Grundgesamtheit 

verteilung Gividiert durch 
die Wurzel aus dem 
Stichprobenumfang 


1.71/ Y58 
1.71/7387:=: 


8.242 


Schließlich produziert das Programm noch eine gra- 


phische Darstellung der oben vorgeführten Häufigkeits- 
verteilung für Stichprobenmittelwerte, wobei die ein- 
zelnen Häufigkeiten als Balken unterschiedlicher Länge 


dargestellt werden. 


voß Kapitel : Mathematik II 


Abschnitt 17 wahlen 
Schule 


9.17 vie 


Problemstellung 


Das Programm veranschaulicht graphisch in Form eines 
Balkendiagramms Wahlergebnisse. 

Dazu muß der Benutzer die prozentualen Stimmenanteile 
für CDU, SPD, F.D.P., Grüne und Sonstige eingeben. 


Problemanalyse 


Eine Problemanalyse ist bei dieser recht einfachen 


Aufgabe wieder entbehrlich. 


Voß Kapitel 9 Mathematik II 


Abschnitt 17 wahlen 
Schule 


REM Z1&-WAHLEN 
CLS 
FRINT"FROGRAMM ZUR GRAFHISCHEN DARSTELLUNG" 
FRINT TAB(9) "VON WAHLERGEBNISSEN. " 
FRINT:FRINT:FRINT:FRINT 
FRINT TAB(9) "FROF.DR.W.VOSS, 1984" 
FRINT:PRINT:FRINT 
FRINT"EINZUGEBEN SIND DIE WAHLERGEBNISSE IN %" 
FRINT:FRINT:FRINT 
DIM F(5),6(5) 
INFUT "CDU/CSU "sF(1) 
INFUT "SFD "F(2) 
INPUT "F.D.P, ";F(2) 
INFUT "GRUENE "ıF(4) 
INFUT "SONSTIGE FD 
CL.S 
FLOT 0,110:DRAW 600,110 
FM=0:FOR I=1 TO S:IF F(D>FM THEN FM=F (I) 
NEXT I 
FOR I=1 TO 5:G(I)=(17/FM)#F (I) 
G(II=INT(G(I)+0O.S):NEXT I 


Voß Kapitel Mathematik II 
Abschnitt 17 : Wahlen 


Schule 


230 GOSUB 2000: REM ZEICHNEN 
250 LOCATE 1,22 

260 FRINT"CDU SFD FDF GRU Sonst" 

270 FOR J=1 TO S:PRINT TAB(6*(J-1))F(J)5:NEXT J 
280 PRINT:PRINT"ENDE":END 

2000 REM UF ZEICHNEN 

2010 FOR J=1 TO 5 

2020 B=17:A=18-6(J) 

2030 FOR I= A TO B 

2040 LOCATE (J-1)*6+2,I:FRINT CHR$(143) 

2050 LOCATE (J-1)*6+3,I:PRINT CHR$(143) 

2060 NEXT I 

2070 NEXT J 

2080 RETURN 


Voß Kapitel 9 Mathematik II 


Abschnitt 17 wahlen 
Schule 


Variablenliste: 


Startzeile der Zeichnung 
Endzeile der Zeichnung 
Prozentanteile 

Maximalwert 

Transformierte Prozentanteile 
Laufindex 


Laufindex 


Kapitel Mathematik II 
Abschnitt : Wahlen 


Programmbeschreibung: 

Satz 18- 98 : Überschrift und Erläuterungen 
Satz 95 : Dimensionierungen 

Satz 198-149 : Eingabe der Inputinformationen 


Satz 159-168 : Löschen des Bildschirms und 
Zeichnen eines waagrechten Strichs 


Satz 189 : Aufsuchen der maximalen Prozent- 
angabe \ 


Satz 288-218 Umrechnen der Prozentangaben derart, 
daß der Maximalwert den auf dem Bild- 
schirm zur Verfügung stehenden Platz 
ausnutzt 


238 : Sprung ins UP 288% zum Zeichnen 
258-278 : Ausgabe der Texte CDU, SPD, F.D.P., 


GR, SO und der Prozentangaben un- 
terhalb der Zeichnung 


Satz 289 : Ende des Hauptprogramms 


Satz 2@@8-2898 : Unterprogramm zum Zeichnen der Balken 


Satz 281-2829: 
Bestimmung von Anfang- und End- 
adresse des Balkens 
2838-2878: 
Zeichnen von inversen Blanks an 
die per LOCATE bestimmten Stel- 
len 


Satz 2898: Rücksprung 


Voß Kapitel 18 Ausblick 


Abschnitt - 
Schule 


Ausblick 


In den vorangegangenen Kapiteln haben wir versucht, zu 


zeigen, wie mit Hilfe vergleichsweise einfacher BASIC- 


Programme typische Probleme, wie sie im Schulalltag 


auftreten, gelöst werden können. 


Mit Nachdruck muß darauf hingewiesen werden, daß die 
ausgewählten Beispiele nur exemplarischen Charakter ha- 
ben, und daß wir keinen Wert darauf gelegt haben, opti- 


male Programme zu erstellen. 


Der Leser sollte vielmehr in die Lage versetzt werden, 
die Funktionsweise der Programne rasch nachvollziehen 

zu können. Damit wird er dann in der Lage sein, auch 

für andere Probleme, die ja häufig den hier vorgestell- 
ten Beispielen ähneln werden, die entsprechenden Lösungs- 


ansätze zu finden. 


Entscheidend beim Computereinsatz ist nämlich nicht der 
Rechner selbst, sondern die Fähigkeit des Benutzers, be- 
stimmte Probleme so aufzubereiten, daß er Gem Rechner 
den adäquaten Lösungsweg in Form eines Programms geben 
kann. 


Wichtig ist nämlich nicht in erster Linie, daß ein Pro- 
gramm schon beim ersten Versuch fehlerfrei läuft (auch 
wenn dies natürlich sehr zu begrüßen und erfreulich ist), 
sondern daß der Computerbenutzer es lernt, wie ein ge- 
stelltes Problem gedanklich vorstrukturiert werden muß, 
damit es durch einen Rechner dann bearbeitet werden 

kann : 


Voß Kapitel 18 : Ausblick 


Abschnitt 
Schule 


Ein Computer nützt uns nämlich nichts, wenn wir, 
die Benutzer, die jeweiligen Problemlösungswege 


nicht schon im Kopf haben. 


Und wenn einmal ein Programm nicht so funktionieren 
sollte, wie der Benutzer das erwartet und zum Bei- 
spiel mit einer Fehlermeldung der Programmlauf ab- 
gebrochen wird, dann hilft immer noch ein Blick 


in das Benutzerhandbuch. 


Für diejenigen Leser, denen die vorgestellten Bei- 
spiele zu einfach waren, sei darauf hingewiesen, 
daß dieses Buch in erster Linie für BASIC-Einstei- 
ger gedacht war, die wir nicht schon durch die 
eventuelle Komplexität der Aufgabenstellungen über- 


fordern wollten. Zu ihrem Trost aber verweisen wir 


auf einen in Bälde erscheinenden Fortsetzungsband 


zu diesem Buch, in dem dann insbesondere komplexere 
und vor allem mathematische Fragestellungen aufge- 


griffen werden sollen. 


Voß 
Stichwortverzeichnis 


Schule 


A 


Abbildung, optische 
Abfrage 

ABS 

Addition 
Anfangswert 
Arbeitsschritt 
Archimedes 
Argument 

Array 

Ausgabe 
Ausprägung 


B 


BASIC 

BASIC-Anweisung 
BASIC-Graphikanweisung 
Betriebssystem 
Bevölkerungsentwicklung 
Bildschirm 
Bildschirmzone 
Binomialverteilung 
Biologie 

Bit 

Blockgraphik 
Bruttobetrag 

Buchstabe 

Bundesländer 

Byte 


Cosinus 
CTRL 


voß 
Stichwortverzeichnis 
Schule 


D 


DATA 

Datei 

Daten 
Dateneingabe 
Datensatz 
Datenverarbeitung 
DIM 
Dimensionierung 
Diskette 

Division 

Dreieck, rechtwinkliges 
Dreisatz 
Dreisatzrechnung 
Drucker 


& 


E 

Eingabe 
Eingabefehler 
Element, chemisches 
Ellipse 

END 

Endlosschleife 
Endwert 
Englisch-Vokabeln 
Englisch-Vokabeltest 
ENTER-Taste 

Eräkunde 

Ergebnis 
Ergebnisausgabe 

ESC 

Eva-Prinzip 

EXP 
Exponentialdarstellung 


F 


Farbadresse 
Farbe 
Federwaage 
Feld 

File 
Flußdiagramm 
FOR...TO 
Französisch-Vokabeln 
Fremdsprache 
Funktion 
Funktionsname 
Funktionsweise 


voß 


Stichwortverzeichnis 
Schule 


G 


Gauß 

Gerade 

Geschichte 

Gesetz, Ohm'sches 

GGT 

Gitter 

Gleichung, quadratische 
GOSUB 

GOTO 

Graphik 

Graphik, hochauflösende 
Graphik-Programmierung 
Graphikzeichen 
Grenzwerttheorem 


H 


Häufigkeitsverteilung 
Hauptstädte 

Hypothek 
Hypothekentilgung 


I 


IF...THEN 
Indizierung, doppelte 
Informationen 
Informationseingabe 
Inhaltsverzeichnis 
INKEY$ 

INPUT 

INT 


J 


Jahreszahlen 
Jahreszahlen, historische 


K 


Kassette 

KGV 

Kombinationen 
Kommando 

Korrektur 
Kräfteparallelogramm 
Kreis 


Stichwortverzeichnis 


L 


Laden 
Länder 
Laufvariable 
Leerzeile 
LET 

Linse 

LIST 

LOAD 

LOG 
Logarithmus 
Loop 

Lotto 


M 


Mathematik 

Menü 

Menütechnik 

Mittel, arithmetisches 
Mittelwert 
Multiplikation 


N 


Name 

Nation 
Nettobetrag 

NEW 

NEXT 
Normalgraphik 
Normalverteilung 


[0] 


Ökologie. 
OPEN 


Voß 
Stichwortverzeichnis 
Schule 


pP 


Pendel 
Pendelbewegung 
Periodensystem 
Permutationen 
Physik 
Potenzierung 
Primzahl 
Primzahlenprüfung 
PRINT 

PRINT USING 
Problemanalyse 
Problemvorstellung 
Programm 
Programmanweisung 
Programmbeschreibung 
Programmieren 
Programmschleife 
Programmverzweigung 
Prozentrechnung 
Punkt 

Pythagoras 


Q 


Quadratzahl 


R 


READ 

Reaktion, chemische 
Reaktionsgleichung 
Rechengenauigkeit 
Rechenoperation 
Rechnen, stöchiometrisches 
Rechnung 

Regression 

REM 

RESTORE 
RESTORE-Taste 
RETURN 

RND 

RUN 


voß 
Stichwortverzeichnis 
Schule 


Ss 


Satz 

Satznummer 

SAVE 

Schleife 
Schrittweite 
SHIFT 

SIN 

Sinus 
Sinuslinie 
Sonderzeichen 
Sortieren 
Sortierprogramm 
Spaltenindex 
Speicher, externer 
Speichern 
Speicherplatz 
Speicherstelle 
Sprache 

Sprung 

Sprung, bedingter 
Sprung, unbedingter 
SQR 

Statement 

STEP 
Steuerbetrag 
Stöchiometrie 
STOP 

Strich 

String 
Stringvariable 
Subtraktion 
Symbol 


Tastatur 
Trend 


U 


Umweltverschmutzung 


Stichwortverzeichnis 


v 


Variable 

Variable, ganzzahlige 
Variable, indizierte 
Variable, reelle 
Variablenliste 
Variablenname 

VC 1541 

Verarbeitung 

Verben 

Verben, englische 
Verben, unregelmäßige 
Verzweigung 

Vokabeln 


Vokabeltest 


W 


Wachstum 

Wachstum, gebremstes 
Wachstum, ungebremstes 
wahlen 

Wassermolekül 

Wert 

Wertzuweisung 
Wirtschaft 
Wirtschaftskraft 
würfel 

Wurzel 


2 


Zahl 

zahl, Euler'sche 
Zeilenindex 
Zentraleinheit 
ZGWT 

Ziffer 

Zins 
Zinsrechnung 
Zufallszahl 


er 


Wer die wichtigen Peeks und Pokes 
zum CPC 464 kennen und anwenden 
will, der findet hier umfassende Infor- 
mation. Sie reicht vom Adreßbereich 
des Prozessors über Betriebssystem 
unter Interpreter bis hin zur Einführung 
in die Maschinensprache. Dazu präzi- 
se Programmierhilfen, sinnvolle Routi- 
nen sowie reichlich Material zu den 
Themen Grafikfunktionen, Massen- 
speicherung und Peripherie, Tricks 
und Formeln in BASIC, RAM-PAGES. 


Liesert/Schieb 

Peeks & Pooks zum CPC 464 
ca. 220 Seiten, DM 29,- 
erscheint Mai 1985 

ISBN 3-89011-092-4 


In diesem erstklassigen Buch wird ge- 
zeigt, wie man die außergewöhnlichen 
Grafik- und Soundmöglichkeiten des 
CPC 464 nutzt. Natürlich mit vielen 
interessanten Beispielen und nützli- 
chen Hilfsprogrammen. Aus dem In- 
halt: Grundlagen der Grafikprogram- 
mierung, Sprites, Shapes und Strings, 
mehrfarbige Darstellungen, Koordina- 
tentransformation, Verschiebungen, 
Drehungen, Rotation, 3-D-Funktions- 
plotter, CAD, Synthesizer, Miniorgel, 
Hüllkurven und vieles mehr. 


Walkowiak 

CPC 464 Graphik & Sound 
220 Seiten, DM 39,- 

ISBN 3-89011-050-9 


Alles über Diskettenprogrammierung 
vom Einsteiger bis zum Profi. Natürlich 
mit ausführlichem ROM-Listing (Be- 
triebssystem), einer äußerst komforta- 
blen Dateiverwaltung, einem hilfrei- 
chen Disk-Monitor und einem ausge- 
sprochen nützlichen Disk-Manager. 
Dazu eine Fundgrube verschiedener 
Programme und Hilfsroutinen, die das 
Buch für jeden Floppy-Anwender zur 
Pflichtlektüre machen. 


Brückmann/Schieb 

Das Floppy-Buch zum CPC 464 
ca. 250 Seiten, DM 49,- 
erscheint Mai 1985 

ISBN 3-89011-093-2 


Wirklich alle Geheimnisse des CPC 
464 lüftet dieses Standardwerk, das für 
den Fortgeschrittenen BASIC-Pro- 
grammierer unentbehrlich, für den As- 
sembler-Programmierer ein absolutes 
Muß ist. Neben dem ausführlich doku- 
mentierten und kommentierten BASIC- 
ROM-Listing enthält es umfangreiche 
Kapitel zu Speicheraufteilung, Prozes- 
sor, Besonderheiten des Z 80, Gate 
Array, Video-Controller und Video- 
Ram, Soundchip, Schnittstellen, Be- 
triebssystem, Routinennutzung, Cha- 
racter-Generation, BASIC-Interpreter 
und mehr. 


Brückmann/Englisch/Gerrits 

CPC 464 intern mit kommentiertem 
ROM-Listing 

548 Seiten, DM 69,- 

ISBN 3-89011-080-0 


Besonders für Schüler der Mittel- und Oberstufe 
geschrieben, enthält das Buch viele interessante Pro- 
ungs- und Lernprogramme, die besonders aus- 
ührlich und leicht verständlich beschrieben sind. Sie 
ermöglichen ein intensives Lernen am CPC mit viel 
Spaß, unter anderem mit folgenden Themen: 


— Satz des Pythagoras — quadratische 

— geometrische Reihen Gleichungen 

— Mechanische Hebel = Pendelbewegungen 

— Exponentielles N ilduı 
Wachstum - Vokabı 

—- unregelmäßige Verben — Zinseszinsrechnung 


Ein kurzer Überblick über die Grundlagen der EDV, 
eine knappe Wiederholung de htigsten BASIC- 
nd = g in die Grundzüge der 


ligen das Ganze. 


Problemanalyse vervollstä 
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